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AS INSTRUgOES DO JOGO 

Impressas na tela, as informacoes contidas no pro- 
grama deste artigo permitirao que ajudemos o in- 
digitado Willie em sua incans^vel busca do lanche 
roubado. Aprenda ainda a chamar sub-rotinas da 
mem6na ROM 761 



TUDO QUE SOBE, DESCE... 

Como desenhar a trajet6ria de projeteis. Efeitos 
de diferentes campos gravitacionais. Aprenda a 
simular parabolas. Movimento vertical e movimen- 
to horizontal. Como unir as retinas, Mude o an- 
gu!o 766 



^BASIC 

ACASO E PROBABILIDADE 

que e probabilidade e como medi-la. Probabili- 
dade, freqiJencia e acaso. Um programa lancador 
de moedas. Probabilidade de varies resultados. Cur- 
va de distribuicao. triangulo de Pascal. Distribui- 
gao de frequencia. Preveja o resultado 774 
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AS INSmUCOES 
DOJOGO 



MAIS TABEUS DE DADOS 



EM ASCII 



ESCREVA MA TELA 



COMO CHAMAR SUB-ROTINAS 



DA ROM 



— '^ J - -g-L - .r 




impressas na tela, as informa^des 
contidas no programa de&te 
artlgo permitirSo que ajudemos o 
itfortunado Willie em sua 
ncans^vel busca do lanche roubado. 



A primeira coisa a fazer 6 colocar o ti- 
tulo na tela. Em seguida, sao fomecidas 
as instru?6es. Como estamos programaij- 
do e conhecemos cada detalhe envoi vi do, 
as vezes esquecemos que outras pessoas 
nao tern a menor id^ia dos objetivos do 
jogo e nao sabem como jogar. Assim, i 
necessario colocar na tela toda informa- 
9ao relevante, de mandra que o usudrio 
oao seja obrigado a parar o jogo a cada 
momento para ler o folheto de instrucoes. 



As informa^os devem ser bem claras e 
objetivas. Ao mesmo tempo, 6 convenien- 
te "temperar" o texto com algum enre- 
do, jd que urn videogame deve apelar ^ 
imaginagao do jogador c nao sknplesmen- 
te testar seus reflexos. 



Mais uraa vez, utilizaremos um pro- 
grama em BASIC para colocar as instru- 
?5es — letra por letra — na memdria, 
criando uma tabela de codigos ASCII. 

Para que a tabela sirva aos nossos pro- 
p(5sitos, 6 importante que o niimero de 
c6digos de caracteres transferidos para a 
memdria seja exato — afinal, eles vac ser 
lidos pelo programa em c6dJgo. Como o 
leitor pode ter problemas para descobrir 



o niimero de espa^os em cada linha, va~ 
mos conferir: no final da linha 100, ha 
um espaco; no final da linha 120, tres; na 
140, tres; na 160, catorze; na 180, um; na 
240, dois; na 300, tres, e na 320, 26 espa- 
fos em branco, Nas linhas 330 e 340 ha 
quatro espacos entre as teclas e o hifen, 
e um espa^o entre o hi'fen e a Tun^o da 
tecia. No final da linha 330 temos deze- 
nove espagos e no final da 340, dezenove 
espagos tambem. Todos os demais claros 
na listagem correspondem a um caracte- 
re de espa?o apcnas. Outra maneira de 
conferir os dados consiste em contar exa- 
tamente 32 caracteres em cada linha DA- 
TA, exceto na 320, que tem 34 caracteres. 

Antes de passar i execufSo, proteja o 
topo da mem6ria com CLEAR 57434. 

Quando executarmos o programa, se- 
ri criada uma tabela com instrucoes. Ao 



|s 




S CODlOODiMAQUmA 2^ 



fmai do progrania, o la^o FOR... NEXT 
entre as linhas 500 e 520 projeta na tela 
uma imagem da porcao da memdria que 
contem a tabela. 



10 LET x = 57<180 

?0 FOn n=l TO 16 

30 HEAD aS: FOB o=l TO LEN a$ 

; POKE x.CODE {aS (o TO o) ) : 
LET x-x+l ; NEXT o 

40 NEXT n 
100 DATA " Apo9 um pequeno pas 
9e 10, Willie " 
IZO DATA "volta e descobre que 

urn bando " 
140 DATA "de cabritoa espalhou 

todo aeu " 
J 60 DATA "lanche na Rncosta . 

180 DATA "Avora ele rfeve aiibir 

ao topo da " 
200 DATA "montanha e recuperar 

auaa coiaaa" 
220 DATA "enfrentando uma aval 
ant:he , cobraa" 

240 DATA "e podendo ate cair n 
um buraco , " 

260 DATA "Para piorar a ail.uac 
ao a mAre " 

280 DATA "eata aubindo e ele c 
orre o Timc.a" 

290 DATA "de ge afogar. Pars a 
jiidar Willie" 
300 DATA "leia aa inet.rucoRS e 

aperte a " 
320 DATA "tec la 'S' 

330 DATA "N - Correr 

340 DATA "M - Saltar 

360 DATA " oii Amboe" 
500 FOB n = 5743.'J TO 58000 
SIO PRINT CHR$ PEEK n; 
520 NEXT n 

Os dados que este programa coioca na 
mem6ria usando POKE sao utilizados pe- 
la seguinte rotina em Assembly; 



10 


REM 


org 58104 


20 


SCH 


call cl 


30 


REM 


Id IK. 57480 


■4 


REM 


Id hi, 32 


50 


REM 


Id a, 7 


60 


REM 


Id b,255 


70 


REM 


call me 


60 


OEM 


Id b,138 


90 


REM 


call me 


100 


REM 


Id de,39 


110 


HEM 


add hl.de 


120 


REM 


Id b,100 


130 


REM 


)d a, 70 


140 


REM 


call ne 


150 


REM 


ktt Id a. 253 


160 


HEM 


in a, 254 


170 


REM 


bit l,a 


180 


REM 


jr nz.ktt 


190 


HEM 


ret 


200 


REM 


org 56192 


1^1 2^" 


REM 


cl « 


^H 220 


REM 


org 58155 



230 REM cne * 



Esses dois programas — ouoseupro- 
duto, criado ap6s a execucao ou a mon- 
tagem pelo Assembler — devem set gra- 
vados da mesma maneira que a primei- 
rar parte do videogame Avalanche (veja 
artigo publicado ^ pagina 748). 

Para que tal rotina funcione adequa- 
damenle, essa parte do jogo e a tabela 
criada pelo primeiro programa BASIC 
tambem devem estar na membria. Isso 
exige que elas sejam gravadas em codi- 
go; caso contr^io, terao de ser monta- 
das novamente. 

Para gravar e ler codigo de mdquina 
em fita cassete — o que inclui os codigos 
da tabela ASCII — , o usuirio do Spec- 
trum tem k sua disposigao comandos SA- 
VE e LOAD especiais. 



i 



Para gravar os c6digos de uma porgao 
da mem6ria, digite: 

SAVE "none" CODE endereco inici 
al.nO de byten 

Para recuperar os mesmos cddigos da 
nta cassete, use; 

LOAD "nome" CODE endereco inici 

al 

O endere^o inicial pode ser omitido se 
for igual ao do momento da grava?ao. Os 
codigos das diversas partes do videoga- 
me Avalanche tambem devem ser grava- 
dos; caso isso nao aconte^a, o usuario 
gastara cada vez mais tempo na monta- 
gem, adicionando novas rolinas e tabe- 
las. Os enderegos iniciais e finais devem 
ser anotados. O proprio Assembler da es- 
sa informai^ao durante a montagem. 




^^&B!S&VFWSSS!^ 



Tambem € bom registrar os enderegos dos 
rdtiilos, para utiliza-los em instru?6es com 
asteriscos (cdlculos de saltos e desvios). 



ESCREVA AS INSTRUqOES NA TELA 



A rotina cl — que estd na primeira 
parte do programa — e chamada para fa- 
zer a limpeza da tela. Ja a rotina me sera 
usada novamente para escrevermos na te- 
la; para isso, temos que colocar valores 
adequados em certos registros, que con- 
trolam as caracten'stkas do texto a ser im- 
presso. 

Para come?ar, alocamos no registro 
[X o endere<;o inicial da nova tabela de 
codigos ASCII criada pelo programa BA- 
SIC. A posigao da tela em que comega- 




remos a escrever deve ser colocada no par 
de registros HL; a cor das letras, em A, 
e comprimento do texto, era B. Para 
imprimir os varios segmentos do texto, e 
preciso chamar diversas vezes a rotina me. 
Antes de cada chamada, por^m, devem 
ser distribuidos os parametros relaciona- 
dos — posigao inicial na tela e niimero 
e cor das letras — nos registros ade- 
quados. 

Quando chamarmos me pela primeira 
vez, B estard contendo o valor 255, que 
corresponde ao comprimento do texto. 
Na segunda vez, B estara contendo 138. 
A rotina deve ser chamada duas vezes 
porque 255 e o maior niimero que o regis- 
tro B, de oito bits, pode abrigar. 138 e 
o restante do texto, que nao pode ser im- 
presso de uma s6 vez por me. Nao h pre- 
ciso definir novamente a posigao de im- 
pressao na tela — HL — , yk que a segun- 
da parte dos dados segue imediatamente 
a primeira e o conteiido desse par i atua- 
lizado pela propria rotina de impressao 
(veja a rotina me na primeira parte do 
programa). 

Quando quisermos imprimir a tercei- 
ra parte do texto, contudo, precisaremos 
usar uma nova posi(;ao na tela. Isto e feito 
para criar um espago entre o texto inicial 
— que conta os azares de Willie — e as 
instrugoes sobre o uso do teclado, que 
orientam sobre quais teclas apertar para 
saltar e/ou correr. Existem duas manei- 
ras de criar esse espa?o: colocando uma 
serie de c6digos de espa*^ na tabela AS- 
CII, ou dando um novo valor a HL. Pro- 
curamos ilustrar as duas t&nicas no pro- 
grama. Se consultarmos a listagem do 
programa BASIC que criou a tabela de 
dados, veremos que existem 26 espa^os 
em branco na linha 320 (naturalmente eles 
i'oram transferidos para a tabela). Olhan- 
do a listagem Assembly, verificaremos 
que o niimero 39 foi colocado em DE pe- 
lo comando Id de,39. Depois disso, o con- 
teiido de DE foi somado ao de HL. O par 
HL funciona como um acumulador de 
dezesseis bits, de forma que o resultado 
da operagao permanece em HL, que e o 
local apropriado para o enderego de im- 
pressao na tela quando chamamos nova- 
mente a rotina me. 

O restante do texto tem cem caracte- 
res de comprimento e e impresso na cor 
amarelo brilhante — c6digo 70 — e nao 
mats em branco — c6digo de cor 7 — , 
como as linhas iniciais. 



ESPERE PELO TIRO DE URGADA 



As instnifdes permanecem no video 
ate que pressionemos a tecla S, dando iiu- 
cio ao jogo propriamente dito. Para tor- 



nar isso possivel, usamos uma rotina que 
detecta mudangas no teclado por meio do 
comando in. 

Esse comando perraite o que chama- 
mos de "varredura do teclado", de um 
modo identico ao usado no programa 
Trace, do artigo Rastreamento no Spec- 
trum (pdgina 381). NaqueSa ocasiao, que- 
riamos detectar as teclas < BREAK > e 
< SYMBOL SHIFT >; agora, nossas 
aten^oes estao na tecla S. £ o valor colo- 
cado em A, antes da execu^ao do coman- 
do in, que determina a porgao do tecla- 
do a ser verificada. Assim, Id a, 253 faz 
com que a linha in a,254 verifique o con- 
junto de teclas ao qual S pertence. 

O vaJor recebido atraves da porta 254 
e coJocado em A. Se o bit 1 desse niime- 
ro estiver "ligado" t porque S foi pres- 
sionada. Quando isso acontece, o resul- 
tado da opcra?ao bit l,a ^ zero, ativan- 
do o indicador de zero. 

O processador ficari girando, preso no 
la?o rotulado como ktt, ate que a tecla 
S seja pressionada, ativando o indicador 
de zero e evitando o salto jr nz, kit, ja 
que a condigao nz -^ resultado da ultima 
operagao nao t zero — nao foi satisfei- 
ta. Normalmente, o programa prossegui- 
ria; por enquanto, porem, uma instru?ao 
ret provocard o retorno ao BASIC, ter- 
minando assim esta segunda parte de 
A valanche. 

Note que os r6tulos correspondentes a 
rotinas montadas em outras listagens de- 
vem ter seu endere?o definido por org, se- 
guido do r6lulo e de um asterisco. Esse 
procedimento permite ao Assembler caJ- 
cular OS saltos para tais rdtulos (cl e me, 
neste caso), O asterisco impede que a po- 
sigao de mem6ria correspondente seja aJ- 
terada. 

Se chamarmos o programa tal como 
foi estruturado ate aqui. e!e escrever^ a 
tela de instrupoes logo ap6s a impressao 
da tela do titulo, e aguardari que pres- 
sionemos a tecla S. A instrugao ret do fi- 
nal do primeiro programa foi apagada pe- 
la montagem da segunda parte, de modo 
a fazer das duas listagens um todo linico 
e coerente. 



Assim como no exemplo precedente, 
utilizaremos aqui um programa escrito em 
"BASIC para colocar — letra por letra — 
as instrugdes na mem6ria, criando uma 
tabela de c6digos ASCII. Adicione as 
prdximas linhas ao programa do artigo 
anterior. Antes de executa-lo, lembre-se 
de proteger o topo da memoria com 
CLEAR 200, 17999. 

20 FOR I-l TO 4 

70 NEXT A.I 

SO DATA 'avalanchecriacaoi a. do 



e proarsii«: ■. keilaway e o- ha 
aiey- 

85 DATA " depolB de ua pegueno 

pasaeio willie descobre Que 

cabritoa Bonteses eapalhara 

■ todo Beu lanche pel a encoa 

ta. agora ele tea de 

aubir ao topo " 
90 DATA 'da Bontanha pegar sua 
B coieaB. no caalnho el« sera 
aaeacado por pedraa, cobras 

e buracoo. para piorar a Bitu 
acao, a mare eata Bubindo, pod 
endo afoga-lo. para a^udar will 
ie lei a as inatrucoea e ap 

erte 'a' para jogar. 

100 DATA •■ - corrern - aaltafB 
n - aaboB' 

Para que a tabela sirva aos nossos pro- 
positos, e importante que o niimero de 
codigos de caracteres transferidos para a 
memoria seja exato (afinal, eles vao ser 
lidos pelo programa em c6digo). Como 
o lei tor podc ter problemas para desco- 
brii o niimero de espapos em cada linha, 
e conveniente conferi-los: no final da li- 
nha 85, aparecem conjuntos de espagos 
com OS seguintes tamanhos: 2, 1, 4, 1, 4, 
4 e 12, segundo a ordem. Na linha 90, a 
seqiiSncia e a seguinte: 1, 2, 4, 3, 2, 1, 
6, 4 e 2. Na linha 100. os espa^os tern ape- 
nas lira caractere em branco. 

A seguir, apresentamos o programa 
on c6digo que utiliza a tabela ASCII cria- 
da pela listagem anterior. Para mont^-lo 
na memoria, recorra ao Assembler de IN- 
PUT. Antes disso, porcm, use os coman- 
dos POKE que aumentam a memoria dis- 
ponivel e proteja o topo da memoria com 
CLEAR 200,18999. 



10 


ORG 19054 


20 


LDX #10 24 


30 


LDY iizosa 


40 


CLBB 


50 


JSR LPRINT 


60 


LDB #137 


70 


J3R LPRINT 


60 


LEAX 24, X 


90 


LDB #10 


100 


JSR LPRINT 


110 


LEAX 22, X 


120 


LDB #10 


130 


JSR LFRINT 


140 


LEAX 22, X 


150 


LOB #10 


160 


JSR LPRINT 


170 


KEY JSR 41409 


lao 


cnPk 483 


190 


BNE KEY 


200 


RT3 


210 


LPRINT EQU 1917* 



Esses dois programas — ou o seu pro- 
duto, criado depois de ter sido executa- 
do (ou montado) pelo Assembler — de- 
vem ser gravados da mesma maneira que 
a primeira parte do videogame Avalan- 
che (os enderecos iniciais e finais devem 
ser calculados e usados no comando de 



gravagao dos c6digos). Para que a rotina 
adma funcione adequadamente, a primei- 
ra parte do jogo e a labela criada pelo 
BASIC compieto devem estar na mem6- 
ria tambem. 

Fafa a gravagao dos codigos cones- 
pondentes fe tabelas e aos programas, 
empregando o comando CSAVEM, que 
tern a seguinte sintaxe: 

CSAVEM "nomc*, endereco iniclal, 
endereco final 



ESCREVA AS INSTRUg6ES NA TELA 



Esse programa usa a mesma sub-rotina 
LPRINT que a rotina da pdgina do titu- 
lo empregou para escrever na tela. Note 
que a tabela ASCII criada pelo progra- 
ma BASIC i lima cominuacao da que 
continha os codigos da pagina do titulo, 
de forma que o programa esta utilizando 
a mesma tabela ASCII. 

Toda vez que chamarmos LPRINT. 
devemos colocar nos registros apropria- 
dos OS parSmetros do texto a ser impres- 
so, Assim, X deve center a posigao da tela 
onde desejamos iniciar a impressao, B, o 
comprimento do texto, e Y. a posicao do 
im'cio do texto na tabela. 

Se olharmos para a listagem Assembly 
da sub-rotina LPRINT — apresentada na 
primeira parte — , veremos que o regis- 
tro Y tern seu valor aumentado na medi- 
da em que a tabela ASCII vai sendo "li- 
da" pelo programa. Etesse modo, o pro- 
grama principal nao precisara corrigir o 
valor de Y toda vez que a rotina for cha- 
mada; na verdade, Y 6 aumentado, gra- 
dativamente, indicando sempre, iinha 
ap6s linha, o inicio da porgao apropria- 
da da tabela. 

Definida a origem do programa, o en- 
dere<;o inicial da tela e colocado cm X por 
LDX # 1024 e o endere^o inicial do tex- 
to das instru?6es 6 posicionado em Y por 
LDY # 17060. A Instnipao CLRB llmpa 
conteudo de B. sendo um modo ripi- 
do de colocar zero nesse registro. O va- 
lor zero funciona como se fosse 256; as- 
sim, quando a rotina LPRINT for cha- 
raada por JSR LPRINT, serao impresses 
256 caracteres. 

Ao chamarmos LPRINT pela primei- 
ra vez, B estara contendo o valor 256, que 
corresponde ao comprimento do texto. 
Na segimda vez, B estard contendo 137. 
A rotina serd chamada duas vezes, pois 
256 ^ o maior niimero que o registro B, 
de oito bits, pode conter. i38 ^ o resto 
do texto que nao pode ser impresso todo 
de uma vez por LPRINT, 

As instru^oes LEAX somam valores 
adequados ao conteudo de X para que a 
posicao de impressao na tela correspon- 
da ao inicio da linha seguinte; i por isso 



que nao hi espa^os entre as paiavras que 
ficam no finai e no inicio de linhas adja- 
cemes. A sub-rotina LPRINT € chama- 
da emao mais quatro vezes para escrever 
as linhas que orientam as fun^oes das te- 
clas. A cada chamada, o valor de B e 
acertado por uma instruvao LDB; o va- 
lor de X ^ ajustado por um LEAX (Y e 
acertado pela propria rotina LPRINT). 

A .s.ub-rotina KEY aguarda que a te- 
cla S seja acionada para que o jogo te- 
nha inicio. Para veiiricar o teclado, o pro- 
grama utiliza uma sub-rotina da ROM. 
Assim, a instru^ao JSR 41409 salta para 
essa sub-rotina, que verifica qual tecla es- 
ti sendo pressionada. 

Se alguma tecla estiver sendo pressio- 
nada, o processador retornara da sub- 
rotina trazendo o c6digo da tecla corres- 
pondente dentro do acumulador. A ins- 
trugao CMPA #83 compara entao o c6- 
digo da letra S — 83 — com o conteudo 
do registro A. Se S nao tiver sido aciona- 
da, a condi9ao de BNE KEY ("sa'ta, se 
nao for igual") cstard satisfeita e o mi- 
croprocessador ser^ enviado novamente 
ao r6tulo KEY. O processo se repetira ate 
que seja pressionada a tecla S. Nesse ca- 
so, a condi^ao de BNE nao estard satis- 
feita e o programa seguira seu curso at^ 
ser interrompido por uma RET. O r<itu- 
lo correspondente a LPRINT deve ter o 
enderego especificado por uma instruijao 
EQU; assim, o Assembler podera calcu- 
lar OS saltos para aquela sub-rotina. 



O Assembly listado a seguir cria a tela' 
de instrucoes ao jogador. Para fazer is- 
so, ele utiliza dados de uma tabela de c6- 
digos ASCII criada por um programa 
BASIC; nele incluimos uma rotina de 
"varredura" do teclado, que aguarda que 
pressionemos a tecla S: 



10 


org -12233 


20 


Id de.O 


30 


Id M ,-13958 


40 


Id be, 960 


50 


call 92 


60 


ktt call 159 


70 


cp 83 


dO 


jr nz.ktt 


90 


ret 


100 


end 



Para montar esse programa, utilize 
nosso Assembler. Grave o programa- 
fonte e o programa-objeto da mesma for- 
ma que na primeira parte do videogame. 

Como das vezes anteriores, precisare- 
moi de um BASIC para colocar na me- 
m6ria os codigos das letras que compoem 
a tela de instru<;6es. Digite-o, mas nSo o 
execute ainda. 
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;0 SCREEN 0: CLEAR 2OO,-M00 0:KE 

y OFF 

20 FOR T = l TO 22- READ AS: PPtlN 

T TAB(] ) ;ASi MEXT 

30 FOR [-n TO 91)9 

40 POKE -139b8+L.VPEEK (BA^EtO) 

■sn NEXT 

60 CLS 

?n DEFUliRl--lZ288 

80 A=lfSJRl{0) 

90 CLS 

100 END 

200 DATA " Ap6a um pequeno p 

2\U DATA "volf.a 30 local ondp p 

r^tendia fazer" 

220 DATA "aeu pique-nique e dea 

robre que um" 

210 DATA "bando de ftabrjtOB mon 

tesea espslhou" 

^10 DATA "todo seu lanche na en 

rfjat. a . " 

/4b DATA 

250 DATA " Agora ele devfi au 

b] r fio Kopo ds " 

260 DATA "montanha para recuper 

ar 3iiaa coiaaa, " 

270 DATA "enfrent^ndo yma avrila 

nrhe, robraa" 

280 DATA "venenoBaa e ctirrendo 

o tiBca de csir" 

290 DATA "num buraco." 

29^ DATA 

100 DATA " Para piorar a sit 

uagao, a mar^" 

3 It) DATA "estii aubindo e ele po 

de ae af ogar . " 

3Z0 DATA "Se vocS quer ajudar W 

1 1 1 I e, leia as" 

130 DATA " inatriJtSen e presaion 

e a tecla 'S ' . " 

3 35 DATA: DATA 

340 DATA "U3«:" 

3 50 DATA " N para 

Cor rer " 

360 DATA " M para 

Sal tar" 

3 70 DATA " AmboB para um 

Saltt) Diagona]" 

As linhas 70 e 80 tentam executar o 
programa do jogo como foi publicado at^ 
momento. Se a primeira pane dele nao 
esUver na memoria ainda, a execugao do 
comando da Unha 80 vai apagar toda a 
memoria. 

Esse programa utiliza o comando 
READ para obter as frases da tela de ins- 
trucao nas linhas DATA do Final da lis- 
ugera. Depois de escrita, a tela e total- 
mente transferida para a mem6ria pelo !a- 
CO entre as linhas 30 e 50. A tabela AS- 
CII e criada assim: o comando VPEEK 
obtto OS c6digos diretamente na mem6- 
ria de video e o comando POKE os colo- 
ca na RAM. 

Para que a tela mantenha a tabulapao 
original e bom conferir: no im'cio das li- 
nhas 200, 250 e 300, h^ quatro espagos 
em branco. Nas linhas 350 e 360, cada va- 



zio no texto contem cinco espagos. Uma 
vantagem dessa t«Jcnica de transferencia 
da tela para a memoria e que voce pode 
criar sua propria tela de instrucoes se nao 
estiver satisfeito com o aspecto da nossa. 



COMO MONTAB PROGRAMA INTEIRO 



Eis algumas explicafoes adicionais so- 
bre como montar o programa. 

A primeira coisa a fazer e carregar o 
Assembler na mem6ria. Depois de tomar 
as providencias necessarias para proteger 
a mem6ria na linha 5000, monte o 
programa-fonte do artigo anterior. Du- 
rante a montagem e interessante anotar 
o enderefo inicial, o enderego final e os 
endere<;os dos rdtulos. 

Terminada a montagem, a roiina em 
codigo estarS na mem6ria. Quern ainda 
nao a gravou em fita deve faze-io por in- 
term^dio do comando: 

BSAVE •CASrAUALl", -12288, -12233 

A seguir, o Assembly deve ser digila- 
do, gravado e montado (anote os ende- 
reijos principais durante o processo de 
montagem). A retina em codigo pode en- 
tao ser gravada da mesma mancira. 

Depois, digite NEW, apagando o As- 
sembler da memdria, e carregue o BASIC 
que cria a tabela ASCII da tela-titulo, Lis- 
tado no artigo anterior. Quern jd gravou 
a tabela correspondente com o comando 
BSAVE pode carrega-la da fita com 
BLOAD, mas teri que proteger o topo 
da memoria antes. Quem nao fez isso ain- 
da deve executar o programa. As linhas 
fmais deste ultimo testam a rotina em c6- 
digo; com a sua execui^o, a pdgina-lftulo 
surge na tela; ap6s uma pequena pausa, 
esta se enche de caracteres aleatdrios. Is- 
so acontece porque a rotina tenta escre- 
ver a tela de instrug5es, mas a tabela ne- 
cessaria nao se encontra ainda na mem6- 
ria. Para continuar, aperte a tecla S e lim- 
pe a tela. 

Finalmente, carregue o programa BA- 
SIC apresentado linhas atr^ e execute-o. 
As lirihas finais testam a rotina comple- 
ta, que escreve o titulo, provoca uma pau- 
sa, apaga a tela, escreve as instrugoes e 
aguarda que a tecla S seja pressionada. 
A tabela ASCII completa pode ser entao 
gravada com: 

aSAUE -CAS: ASCII". -14000, -12998 

fi aconseihdvel gravar os c6digos das 
rotinas e tabelas usando o comando BSA- 
VE. Scnao, tercmos que gastar um tem- 
po cada vez maior para a montagem, 
Afxis gravar os cddigos, proteja a memo- 
ria, digitando a instruifao. 



CLEAR 200,-14000 

(prote?ao feita antes pelos prog-amas BA- 
SIC). Posicione a fita nas rotinas em co- 
digo e carregue-as com: 

BLOAD *CAS : " 

Finalmente, posicione a fita nos codi- 
gos da tabela ASCII e carregue-a usando 
o mesmo comando BLOAD. Para exe- 
cutar programa, digite: 

DEFUSR— 12288:A - USR{0) 



ESCREVA NA TELA 



, Esse programa recorre a mesma sub- 
rotina da ROM utilizada pela rotina da 
pagina do titulo para escrever na tela. A 
tabela ASCII criada pelo programa BA- 
SIC t uma continuagao da que continha 
OS c6digos da pagina do titulo, de forma 
que programa estd utilizando a mesma 
tabela ASCII. 

Toda vez que chamarmos essa sub- 
rotina, devemos colocar nos registros 
apropriados os parametros do texto a ser 
impresso. Assim, DE deve conter a posi- 
t^ao da tela onde desejamos Lniciar a im- 
pressao do texto; BC, o comprimento do 
texto; e HL, a posigao do inicio do texto 
na tabela ASCII. 

A sub-rotina kt( aguarda que a tecla 
S seja pressionada para que o jogo come- 
ce. O programa verifica o teclado utili- 
zando uma sub-rotina da ROM. Assim, 
a instrugao call 159 salta para essa sub- 
rotina,ique espera at^ uma tecla ser pres- 
sionada. 

Se alguma tecla for pr^onada. o pro- 
cessador retomara da sub-rotina trazen- 
do o c6digo da tecla correspondente den- 
tro do acumulador. A instrucao cp 83 
compara entao o codigo da letra 2 — 83 
— com o conteudo de A. Se S nao tiver 
sido pressionada, a condifao do coman- 
do jr iiz,ktt ("salta, se o ultimo resulta- 
do nao for zero") estar^ satisfeita e o mi- 
croprocessador sera novamente enviado 
para o r6tiilo kit. O processo se rei>etir^ 
ate que seja pressionada a lecla S. Nessc 
caso, a condifao de ni nao seri satisfeita 
e o programa prosseguird seu curso, ate 
encontrar uma instru?ao ret. 

Ao executarmos o programa, veremos 
aparecer um cursor no canto superior es- 
querdo da tela de instrugSes. Ele € colo- 
cado ali pela rotina da ROM que verifica 
o teclado. Para tiri-lo dessa posi^ao, te- 
riamos que escrever nossa prdpria roiina 
para detectar o toque na tecla S, Depois 
que a tecla for pressionada e o programa 
terminar, o texto permanaieri na tela. Sa- 
bemos que a rotina terminou porque sur- 
ge a mensagem "OK" no meio do texto. 
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Segundo Galileu GaiUd (1564-1642), 
lodo objeto lan^ado sobre a superficie 
da Terra sofre a a^ao de duas forgas; a 
que o impulsiona para a frente (ou pa- 
ra alto) e a que o atrai para o planeta 
(forga de gravidade). A interafao des- 
sas duas forgas leva o corpo a descrever 
uraa curva parabolica. O desenho desse 
tipo de trajetdria torna-se muito simples 
quando se trabalha com um compu- 
tador. 

Um objeto langado para cima, por 
exemplo, distancta-se — a principio, ra- 
pidamente — das superficie da Terra 
sob a a?ao do impulse inicial, perden- 
do velocidade por efeito da gravidade. 
Este artigo mostra como programar e si- 
mular o movimento de proj^teis. 

Muitos jogos de combate sao am- 
bientados no vicuo do espapo sideral 
porque lA se pode ignorar a a?So da for- 
ga gravitacional e da resistencia do ar no 
cilculo do movimento de naves e mis- 
seis. Isso nao quer dizer que nao exista 
nenhuma gravidade no espago; existe, 
mas e tao pequena que pode ser despre- 
zada para efeitos prdticos. 

Em contrapartida, batalhas simula- 
das na superficie terrestre tern que levar 
em conta a agao da gravidade e, fre- 
qiientemente, a resistencia do ar e o efei- 
to dos ventos. A16m de jogos de guer- 
ra, podem surgir virias outras circuns- 
tancias em que o conhecimento de co- 
mo se dS movimento de proj^teis seja 
essencial para um efeito' realfstico. En- 
tre elas estao muitos esportes e simula- 
<jao dc provas de atJetismo, como lan- 
gamento de dardo e de disco, mergulho 
e todo o tipo de salto. 

Os projeteis citados (sejam pessoas 
ou objetos) t§m uma coisa em comum: 
eles se movem segundo uma trajet6ria 
que pertence a um grupo de curvas co- 
nhebidas como parabolas. Escrever um 
programa para simular movimento em 
trajet6ria parab61ica nao e dificil, reque- 
rendo apenas a compreensao das for^as 
que atuam sobre o objeto e o emprego 
de matemitica elementar. 

Saber, por exemplo, que o movimen- 
to executado por uma bola ao ser chu- 
tada resulta da combinagao de movi- 
mento em duas dire?6es ji fornece sub- 
sidios suficientes para resolver o proble- 
ma da programagao. Uma dessas dire- 



goes 6 paraiela ao eixo horizontal ou ei- 
xo X de um sistema cartesiano. A outra 
€ vertical, paralela ao eixo Y. Nesta li- 
gao, estabeleceremos como premissa que 
o objeto se move com velocidade cons- 
tante na diregao horizontal. Na realida- 
de, objeto seria desacelerado pela re- 
sistencia do ar, mas este € um detalhe 
que costuma ser ignorado, a nao ser em 
trabalhos de grande precisao. 



MOVIMENTO HORIZONTAL 



Digite esse primeiro programa para 
simular o movimento horizontal, e cui- 
dado para nao confundir a letra 1 com 
o niimero 1. Todos os programas sao 
para o BASIC padrao da mdquina. 



PAPEB 7: INK 0: 



,12 



100 BORDEn 

CLS 

105 POKE 23658,8 

110 PHTNT INVERSE 1 ;AT 2 
MENU " 

120 PBINT AT 6,0:"1-«OV1MENTO 

PtJHAMENTE HORIZONTAL" 

130 PHINT AT 8,0;'2-M0VIMENTO 

PURAMENTE VERTICAL" 

140 PRINT AT 10,0; "3- MOVIMENT 

MISTO" 

150 PRINT AT 12,0; "4- ELEVACOE 

S" 

200 LET IS-INKEYS: IF IS-"" 

THEN GOTO 200 

205 IF ISC'l" OB IS>"4" THEN 
GOTO 200 

210 G03UB VAL 15*1000 

220 BUN 
1000 CLS 
1020 LET SP=30 

1030 PRINT "VELOC. HOBIZONTAL M 
/S . " 

1040 FOB H-124 TO 28 STEP -16 
1045 LET T=0 

1050 PRINT AT 21- (R/S) , r SP 
1060 INPUT ''<ENTEB> PARA ATIHAB 
", LINE ZS 

1090 LET X=SP«T: LET T=T+1 
1100 PLOT 30+X,R: SOUND .l,R/4 
1110 PAUSE 10 

1120 IF 30+SP*T<250 THEN GOTO 
1090 

1150 IF R = 28 THEN GOTO .1200 
1160 INPUT "NOVA VELOCIDADE (0 
SAD", LINE 15 
1165 LET SP-UAL IS 
1170 IF SP<0 OB SP>1000 THEN G 



Um objeto lan^ado para a alto descreve 
uma curva parab6lica. Isaac 
Newton (1642-1727) demonstrou que, se 
a altura de ian^amento for multo 
grande, o objeto cdki fora da Terra. 



OTO 1160 

1190 IF SP=0 THEN LET R=28 

1200 NEXT R 

1210 RETURN 

D 

IDO CLS:PMODE 3 

110 PRINT «13."Mnu" 

120 PRINT 8128,-1 -MOVIMENTO PUR 

AHENTE HORIZONTAL' 

130 PRINT «192,"Z-M0UIHENT0 PUR 

AMENTE VERTICAL" 

140 PRINT e256,-3-M0VIMENT0 MIS 

TO" 

150 PRINT e320."4-ELEVACOES" 

160 A3-INKEYS:IF AS<"1" OR h$>" 

4" THEN 160 

170 ON VAL CAS) GOSUB 1000,2000, 

3000,4000 




COMO DESENHAR A TRAJET6rIA 

DE PROJ^TEIS 

* EFEITOS DE DIFERENTES 



CAMPOS GRAVlTACIONAtS 



COMO SIMUUR PARABOLAS 



RJNCIOWMENTO DO PROGRAMA 

MOVIMENTQ VERTICAL 

MOVIMENTQ HORIZONTAL 

COMO UNIR AS ROTINAS 

MUDE ANGULO 



ISO AS-IKKEYS 

190 IF INKEyS""" AND PEEK{6S314 

)<>7 TBEK 190 ELSE RUN 

1000 PCLS 

1010 L1NE(0,0)-{255,191>,P3BT,& 

1020 SP-30 

1030 CLS:PRINT''VELOCIDAI>E HORIZ 

ONTAL": PRINT "M/3..." 

1040 FOR B-39 TO 159 STEP 24 :T- 

-1 

1050 PRINT «32*INT{R/I2)-1.SP:" 

*': PRINT «446,'<ENTER> PARA ATI 

RAR' 

1060 IF INKEyd<>CHR$(iaj THEN 1 

060 

1070 SCREEN 1,0 _ 

1090 T-T+1:X-SP*T 

1100 PSEt[10-t-X/5.R,2} :SOUND R.l 

1105 D-50 

1110 IF PEEK(345)-255 AND D>0 T 



HEN D-D-1;GOTO 1110 

1120 IF SP*<T+l)/5<223 THEN 109 



1130 IF R>1S0 THEN 1200 

1135 D-200 

1139 AS-INKEy$ 

1140 IF INKEYS-"" AND D>0 THEN 
D-D-1 :GOTO 1140 
1160 PRINT 6448, "■ SPRINT «44e," 



NOVA VELOCIDADE CO SAI) : " ; : IHPU 

T SP 

1170 IF SP<0 OR SP>999 THEN 116 



1190 IF SP-0 THEN R-ieO 

1200 NEXT 

1210 RETURN 




OB AS>" 



2000, 



j r \y ^y ■y y y -ct- 



SCREENO :CLS: COLOR 15.4,4 
UO LOCATE 16:PRINT''M E N U" 
120 LOCATE 4, 6: PRINT" I - MOVIME 
NTO HORIZONTAL PIJRO" 
130 LOCATE 4. 8: PRINT" 2 - MOUIME 
NTO VERTICAL PUHO" 
140 LOCATE 4.10:PRINT"3 - MOVIM 
ENTO COHBINADO" 

150 LOCATE 4,12:PH1NT"4 - ANGUt 
OS VARlAVEIS" 
160 AS=INKEY$:rF AS<"1 
4" THEN 160 

170 ON UAL (AS) GOSIIB 100 
3000,4000 

190 IF INKE¥3='" THEN 190 ELSE 
RUN 

1000 SCREEN Z,0,0 
1010 LINE {5,0)-(Z50.160) ,15,B 
1020 SP=30 

1030 OPEN "GRP:" FOB OUTPUT AS 
|1:PBESET (5 . 161 ) : PRINT! 1 , "UELO 
CIDADE HORIZONTAL EM M/S" 
1040 FOR R=30 TO 150 STEP 24;T= 
-1 ' 

105(i PRESET 16.R-9) :PHINT|1.SP: 
LINE (250,195)-(5,1B0) ,4.BFiPRI 
NT#1,"TECLE <HETURN> PARA DISPA 
RAR" 

1060 IF INKEYSOCHRS (13) THEN 1 
060 



I 



1090 
1100 

1110 

>CHRS 

1120 

1090 

1130 

1140 

CNB$( 

1160 

FrPai 

NA> :" 

1162 

PS 

1165 

HEN 1 

1170 

165 

1180 

1190 

-160 

1195 



1200 

1210 



T=T+1 :X=SP*T 

PSET (30+X/5,H) ,15:PLAY"N1 

FOR 1=^1 TO 100: IF INKEYS C 

(32) THEN NEXT I 

IF SP*(T+l)/5+30<240 THEN 

IF R>145 THEN 120O 

FOR T^l TO ZOOtIF TNKEYSO 

13) THEN NEXT I 

LINE (250,J95)-(5,180J ,4.B 

NTH, "NOVA VELOC? (0 TERMI 

:3PS=-" 

PRESET (210,180) rPRINTtl.S 

A$ = tNKElfS:IF A$ = CHB$(]3) T 

190 

IF A$<"0" OR AS>"9" THEN 1 

SPS=SP$+AS:G0TO 1162 
SP=UAL{SP$) :IF SP=0 THEN H 

IF SP<0 OR SP>999 THEN 116 

NEXT B 
RETURN 



Bl 



95 FOR I = 7 70 TO 795: READ A: 

POKE I, A: NEXT 
100 TEXT : HOME 
110 PRINT TABC 16):"M E N U" 
120 UTAB 7: HTAB 5: PRINT "1 - 

MOyiMENTO HORIZONTAL PUHO" 
130 VTAB 9: HTAB 5: PRINT "2 - 

MOVTMENTO VERTICAL PURO" 
140 VTAB 11: HTAB 5.: PRINT "3 

- MOVIMFNTO COMBINADO" 

150 VTAB 13: HTAB S : PRINT "4 

- ANGULOS UAH I AVE IS" 

160 GET AS: IF AS < "1" OR A$ 
> "4" THEN 160 

170 ON UAL (AS) GOSIJB 1000,20 
no , 3000,4000 

180 GET AS: IF AS = CHR$ (13) 
THEN RUN 



190 GOTO. 160 

1000 HGR : HC0LOR= 3 

1010 HPLOT 0,0 TO 279,0 TO 2 79 

, 159 TO 0,159 TO 0,Q 

102O SP = 30 

10 30 HOME 

1040 FOB H = 30 TO 150 STEP 24 

:T = - 1 

1050 VTAB 21: PRINT "VELOC HOH 

IZ: "iSP;' M/S": UTAB 24: PRINT 

"TECLE <CR> PARA DISPARAR "; 
1060 GET AS: TF AS < > CHRS 
(] 3) THEN 1060 
J 090 T = T + 1:X - SP ' 
1100 HPLOT X / 5.B:W = 

~ 16336) :W = PEFK ( - 
1105 POKE - 1636B,0 
1110 FOR D = 1 TO 20 : 

( - 16384) < 128 THEN 

16368,0; NEXT 



' T 

= PEEK [ 

- 16336) 

IF PEEK 
POKE - 




1120 IF SP * (T + 1) / 5 < 279 

THEN J 090 
1130 IF R > 149 THEN 1.200 
J1J5 POKE - 16368,0 
1140 FOB D = 1 TO 300: TF PEE 
K ( - 16384) > 127 THEN D - 300 

1150 POKE - 1636B.0: NEXT 

]260 HTAB !■ VTAB Z3r CALL - 

958: VTAB 23 r INPUT "NOUA VELOC 

TDADE (0 TERMTNA) " ; SP 

1170 IF SP < OB SP > 999 THE 

N 1160 

1190 IF SP = THEN R = 160 

1200 NEXT 

1210 RETURN 

5000 DATA 172,1.3,174.1,3.169 

,4.32,158.25 2.173.48,192,2 3 2.20 

8,253,136.208,2 39,206,0.3,2 08,2 

31.96 

Ao executar o programa, voc6 vera 
um menu com quatro opgoes. Ate ago- 
ra, s6 a rotina para a primeira opfao foi 
digitada. Assim, se teclar as opgoes 2, 
3 ou 4, voce obtera uma mensagem de 
erro. Ao pressionar 1, o programa vai 
para a sub-rotina lOOO. Esia usa um la- 
?o FOR.,. NEXT (linhas 1040 a 1200) 
para permkir que um objeto seja lan<;a- 
do horizontalmenie em seis velocidades 
diferentes. Na primeira vez, a velocida- 
de de 30 m per segundo i usada auto- 
maticamente e simulada no video como 
uma serie de pontes em lioha reta. 

A seguir, voce pode escoiher uma ve- 
locidade difereme. Para sair do la<po. 
pressione a tecia 0; o programa mostra- 
rd entao o menu novamente. Digiie um 
valor — 60, por exemplo — e pressione 
< ENTER > ou < RETURN > para 
disparar, A a«;ao pode ser acelerada 
acionando-se continuamente a barra de 
espagos (tecla < ENTER > no Spec- 
trum) ou teclando-a repetidas vezes. 
Agora, compare o resultado com a linha 
de velocidade 30 m/s. Escolha e com- 
pare cinco outras velocidades. Depois 
disso, menu serd reapresentado. 

A parte do programa que desenha os 
pontes fica entre as linhas 1090 e 1 120, 
A variavel T Simula o tempo que, neste 
caso, e incrementado de um em um se- 
gundo. Desse modo, os pontes sao es- 
pa^ados regularmente (o que i necessi- 
rio para conservar a velocidade constan- 
te) na dire*;ao horizontal. A distancia 
cntre os pontes e determinada pela ex- 
pressao SP*T na linha 1090. Ela faz com 
que, quanto maior a velocidade, maior 
espacamento entre os pontos. 

A expressao SP*T pode ser reconhe- 
cida como parte da formula DISTAN- 
CIA = VELOCIDADE X TEMPO, co- 
mo € ensinada nas aulas de fisica. Des- 
se modo, fica bem claro que o progra- 
ma usa o espacamento entre OS pontos, 
a fim de simular a velocidade. 



MOVIMENTO VERTICAL 



Digite as pr6ximas linhas para simu- 
lar o movimento em dire^ao vertical: 



2000 CLS 

2020 LET G=10: LET SP^50 

20 30 PUINT '"ACELERACAO [)A GRAU 

. ; cn/a/s. - - " 

2040 FOR R=3 TO IB STEP 3 

2050 PBINT AT ZO ,B i "*" jAT 21, B; 

G 

2060 INPUT "<ENTER> PAHA ATIRAB 

", LINE IS 

2080 FOR T-=0 TO 250 STEP .5 

2090 LET H = SP*T-0.5*C,«T*T 

2100 IF H>143 THEN SOUND .05,1 

0: PAUSE 50: NEXT T: GOTO 2)10 

2105 IF H>^0 THEN PLOT R*B+4.H 

+32: SOUND .05,H/4: PAUSE 40: N 

EXT T 

2110 IF B>15 THEN GOTO 2180 

2140 INPUT "NOVA GRAV , (0 Shi)" 

, LINE IS 

2142 IF LEN I$"0 THEN GOTO 214 



2145 LET G=WAL 15 

2150 IF NOT {LEN I$>0 AND G>=0 

AND G<4 00J THEN GOTO 2140 

2170 IF G=0 THEN LET B=ie 

2180 NEXT R 

2190 RETURN 

a 

2000 PCLS 

2010 LINE(0.0>-(255,191) .PSET.B 

2020 G-10:SP-50:CLS 

2030 PRINT e32, "ACELERACAO DA G 

RAV. :'':PRINT"M/S/S. . ." 

2040 FOR B-0 TO 25 STEP 5 

2050 PHINT «416+R,"*"+MIDSCSTRS 

CG) ,2) : 

2060 PRINT e44e,"<ENTER> PARA A 

TIRAH" 

2065 IF INKETfS<>CHHS(13) THEN 2 

06S 

2070 SCREEN 1,0 

2060 FOR T»0 TO 100 STEP .5 

2090 a"SP*T-' . 5*G*T*T 

2095 IF H<0 THEN T-2S0:GOTO 210 

8 

2100 IF H>159 THEN SOUND 250.1; 

D-30 EL3E PSET (10+R«8, 160-H . 2) 

:SOUNDH+10,1 :D-50 

2105 IF PEEK (345) -255 AND D>0 T 

HEN D-D-1:G0T0 210S 

2108 NEXT 

2110 IF R>20 THEN 2180 

2115 D-80 

2119 AS-INKEYS 

2120 IF INKERS-"' AND D>0 THEN 
D-D-1:G0T0 2120 

2140 PRINT #448 ,■•": PRINT 6448,- 
NOVA GRAV. (0 SAI):";:INPUT G 
2150 IF G<0 OR G>400 THEN 2140 
2170 IF G-0 THEN R-26 
2180 NEXT 
2190 RETURN 



m 



2000 SCREEN 2,0,0 

?01fl I INI- C,. 01 -(250,160) ,1b. e 

2020 SP=50:G=10 

2030 OPEN "GBP:" FOB OUTPUT AS 

tl : PRESET (5.161) : PHTNT* 1 . " ACEL 

DA GRAyiDADE EM M/S/S" 
2040 FOR B=0 TO 25 STEP 5 
2050 PRESET (H*fl , 1 50) : PR INT# I . G 
:LINE E250,195) - (5.180) ,4.BF:PR 
INT#1,"TECLE <RETUBN> PARA DTSP 
ARAR" 

2060 IF INKEYS<>CHRS(13) THEN 2 
060 

2080 FOR T=0 TO 100 STEP .5 
2090 H=SP*T-.5*G*T«T 
2095 IF H<0 THEN T=250:GOTO 210 
8 



IF H>159 THEN PLA¥"N90L19" 

PSET (30+a*8.160-H) ,15:AS 

STRS{INT(H/2) )+"Ll9":PLAYA 

FOR 1=1 TO 100:IF INKEY5 < 

(32) THEN NEXT I 

NEXT T 

IF H>20 THEN 2180 

FOB 1=1 TO 200: IF INKEYS < 

(32} THEN NEXT I 

LINE (250,195)- (5.180) .4. B 

NTI1."N0UA G? (□ TERMINA) : 

PRESET (200,1805 :PBINT|1 ,G 

AS = TNKEY$:TF AS^CHBSdS) T 

160LIST 2100- 

IF AS<:"0" OR AS>"9" THEN 2 

GS=GS+AS:GOTO 2142 
G=UAL(GS):IF G-0 THEN R=26 
TF GCO OR G>400 THEN 2140 
NEXT R 
HETUBN 



2100 

ELSE 
= ■■ fl " + 
S 

2105 
>CHRS 
210B 
2110 
2120 
>CHH5 
2140 
F: PRT 
":GS = 
2142 
$ 

Z145 
HEN 2 
2150 
145 
2155 
2160 
2170 
2180 
2190 

[£ 

2000 HGR ; HCOLOR= 3 

2010 HPLOT 0,0 TO 279,0 TO 2 79 

,159 TO 0,159 TO 0.0 

Z020 SP = 50:G = 10 

2030 HOME : VTAB 21: PRINT "G: 

M/S/S" 
2040 FOR R = TO 25 STEP 5 
2050 VTAB 21: HTAB H + 8: PRIN 
T G: VTAB 24: PRINT "TECLE <CH> 

PARA DISPARAR " ; 
2070 GET A3: IF AS < > CHftS 
THEN 2070 
FOR T = TO 100 STEP .5 



(13) 

2080 

2090 

T 

2095 

TO 210 7 

2100 IF 

. ZOO 

2102 



H-SP*T- .5*G«T* 
IF H C THEN T = 250: GO 



POKE 
IF H 



> 159 THEN 
768,2: CALL 
< 160 THEN 



+ R « 7,160 - H: POKE 
OKE 768',2: CALL 770 
2103 POKE - 16368.0 
2105 FOR D = 1 TO 20: 

C - 16384) < 128 THEN 

16368.0: NEXT 
2107 NEXT T 



POKE 769 
770 

HPLOT 50 
769, H: P 



IF PEEK 
POKE - 



2110 IF B > 20 THEN 2180 
Z115 POKE - 16368.0 
2120 FOB D - 1 TO 300: IF PEE 
K ( - 16384) > 127 THEN [> - 300 

2130 POKE - 16368,0: NEXT 

2140 HTAB 1: UTAB 23: CALL - 

958: VTAB 23: INPUT "NOUA ACELE 

RACAO CO TERMINA) ";G 

2150 IF G < OR G > 400 THEN 

2140 

2170 IF G - THEN a - 26 

2180 NEXT R 

2190 RETURN 

Execute o programa e escolha a op- 
gao 2 desta vez. Pressione < ENTER > 
ou < RETURN > para ver uma s^rie de 
pontes tra^ados verticalmente na tela. 
Note que tais pontes nao sao espa(;ados 
regularmente, como na opgao anterior; 
quanto mais aJta sua localiza^to, mais 
perto eles ficam uns dos outros, 

Isso acontece porque o objeto d de- 
sacelerado peia atflo da gravidade. E 
desta vez o som ajiida a explicar o que 
estd acontecendo. A medida que o ob- 
jeto sobc, a tonalidadedo som torna-se 
mais aguda e, k proporcpao que ele des- 
ce, o som fica mais grave. 

Como antes, a rotina Ihe oferece seis 
tentativas (determinadas na linha 2040) 
de experimentar diferentes valores para 
o efeito da gravidade. Elas sao armaze- 
nadas na varidvel G, que iniciatmente i 
ajusiada para 10 (linha 2020) e usada na 
linha 2090. 

A rela^ao e a formula para distlncia 
de um objelo em queda livre. Sua for- 
ma usual i: 

S = VT +— GT^ 
2 

onde S 6 a distancia; V, a velocidade ini- 
cial; T, o tempo, e G, a aceleraeao da 
gravidade. TxT e usado na linha 2090 
em vez de Tt2 ou T2, porque os com- 
putadores sao mais dgeis para multipli- 
car do que para calcular potencias. A 
aceleragao de um objeto em movimen- 
to ^ calculada em fungao da mudan^a 
de velocidade e do tempo decorrido. 
Perto da superficie da Terra, g tern um 
valor aproximado 10 m/s/s. Isso signi- 
fica que a velocidade de um objeto em 
queda aumenta de 10 m/s a cada segun- 
do. E a velocidade de um objeto em as- 
censSo diminui de 10 m/s a cada segun- 
do. Esta e, portanto, uma acelera^ao ne- 
gativa; por isso, o sinaJ -I- (mais) da f6r- 
mula padrSo i substituida pelo - (me- 
nos) na linha 2090. 

O cilculo de G f comumente usado 
em rela^ao a viagens espaciais. A acele- 
ra<pao de uma espa^onave saindo da 6r- 
bita terrestre atinge cerca de 10 g. Isso 



significa que essa aceleraijao € de 10x10 
m/s/s ou 100 m/s/s (a notagao m/s 
tarab^m 6 usada com frequ§ncia). 

Na primeira passada do laipo que co- 
me<;a na linha 2040, a posigao do obje- 
to ^ tracada a intervaios de um segun- 
do. A velocidade inicial e de 50 m/s e a 
aceiera^ao ^ a da gravidade (10 m/s/s). 
Ambos OS valores foram determinados 
na linha 2020. Como na primeira roti- 
na, apressa-se a a?ao pressionando-se a 
barra de espagos (ou < ENTER >, no 
Spectrum). O valor de G pode ser mu- 
dado quando um novo valor € solictta- 
do na tela. (Compare o efeito dos seis 
valores diterentes.) Antes de se comple- 
tar o lafo, pode-se voltar ao menu 
pressionando-se para aceterapao. 



MOVIMENTO COMBINADO 



Para simular o movimenio de um 
proj^til, i necess^rio apenas combinar 
essas rotinas de maneira que o objeto se 
mova na horizontal e na vertical, ao 
mesmo tempo. Digite estas linhas para 
montar a tercel ra rotina: 



3000 CLS 

3020 LET G-10: LET SP-50 

30 30 FOR B=l TO 6 

3040 PRINT AT 0. : "GRAV. ■»"' ; G ; "m 

/B/B ■ "'UELOCIDADE-"'iSPi ■m/a " 

3,050 INPUT "<EMTEB> PABA ATIBAS 

" LINE 19 

3070 FOB T-0 TO 250 STEP .5 

3080 LET H-3P*SIN ( (PI/180) *45) 

*T-.5*G«T*T 

3090 LET X-SP«COS ( (Pl/180) *45} 

*T 

3100 IF H<175 AND X<255 THEN G 

OTO 3J05 

3102 IF H>0 THEN SOUND .05.10: 
PAUSE 25: NEXT T: GOTO 3110 

3103 LET T-250: NEXT T: GOTO 31 
10 

3105 IF H>-0 THEN PLOT X,H: SO 
tfND .05, a/4; PAUSE 40: NEXT T: 
GOTO 3110 

3106 LET T-250: NEXT T 
3110 IF B=6 THEN GOTO 3230 
3120 PAUSE 50 

3140 INPUT "NOVA GBAU. tO SAD" 

, LINE IS 

3150 IF LEN IS-0 THEN GOTO 314 



31S5 LET G-VAL 15 

3160 IF NOT {LEN IS>0 AND G>=0 

AND G<1000) THEN GOTO 3140 

3170 IF G-0 THEN LET 8-6: GOTO 

3230 
3190 INPUT "NOVA UELOC. " , LINE 

19 

3195 LET SP-VAL IS 

3200 IF NOT (LEN I3>0 AND 3P>0 

AND SP<1000) THEN GOTO 3190 

3230 NEXT R 



3 240 RETURN 

D 

3000 POLS 

3010 LINE(0.0>-t255,191> .PSET.B 

3020 G-10:3P-50 

3030 FOR H-1 TO 6: CLS 

3040 PRINT "G -"; G : "M/S/S" ;P 

HINT-WELOCIDADE-" ; SP; 'M/S* 

3050 PRINT e44e,"<ENTER> PARA A 

TIEAR' 

3060 IF INKEYS<>CHR3tl3) THEN 3 

060 

3065 SCREEN 1,0 

3070 FOR T-0 TO 200 STEP .5 

3080 H-SP*SIN (ATN (1 ) ) *T- . 5*G«T" 

T 

3090 X-SP*C03(ATN(1) }*T 

3095 IF H<0 THEN T-250 :GOTO 310 

6 

3100 IF X>2S1 THEN T-250 :GOTO 3 

106 ELSE IF H>189 THEN SOUND 25 

0.1:D-25 ELSE PSET {X+2 , 190-H . (R 

+3)/2):30UND H+10,l:D-35 

3104 IF PEEK (345) -255 AND D>0 T 

HEN D-D-l:GOT0 3104 

3106 NEXT 

3110 IF R>5 THEN 3230 

3115 D-lOO 

3119 AS-INKEY3 

3120 IF INKEYS--" AND D>0 THEN 
D-D-l;GOTO 3120 

3130 PRINT e4l6,"": PRINT #448," 

3140 PRINT #416, "NOVA GRAV. (0 

SAI ) " ; : INPUT G 

3160 IF G<0 OR G>9999 THEN 3130 

3170 IF G-0 THEN H-6:G0T0 3230 

3180 PRINT *448,"" 

3190 PRINT €448. 'NOVA WELOC.:"; 

: INPUT SP 

3200 IF SP<0 OR SP>999 THEN 318 



3230 NEXT 

3240 RETURN 



m 



3000 SCREEN 2.0,0 

3010 LINE (5,0)- [2.^.0,160) ,15, B 

3020 SP=50:G=10 

3025 OPEN "GRP:" FOR OUTPUT AS 

*1 

3030 FOR H=l TO 6 

3040 LINE (250,195)-(5,161) ,4,B 

F:PRTNTtl ,"G =";G:"M/S/S UE 

L =";SPi"M/S" 

3050 LINE (250,195)-{5,180) .4.B 

F:PRTNTI1, "TECLE <RETURN> PARA 

DI.SPAHAH" 

3060 IF INKEY$<>CHaS(13) THEN 3 

060 

30 70 FOR T=0 TO 200 STEP .5 

3080 H=SP*SIN(ATM(1) )*T-.5*G*T* 

T 

3090 X=SP*C0S(ATN(1) )*T 

.1095 IF H<0 THEN T=250:GOTO 310 

6 

3100 IF X>245 THEN T=250;GOT0 3 

106 ELSE IF H>159 THEN PLAY'NQO 

L19" ELSE PSET (X+6, 160-H) . 15:A 

S^"N"+STRS(INT(H/Z))+-L}9":PI.A¥ 



AS 

310'3 FOB 1 = 1 TO 100:IF INKEYS < 

>CHR$C,12) THEN NEXT I 

3106 NEXT T 

3L10 IF H>5 THEN 3230 

3120 FOB 1=1 TO 200:1F INKEYS < 

>CHHS f32) THEN NEXT I 

3140 LINE (250,19S)-(5. 180) .4,B 

F: PRINT* 1 , "NOVA G? CO TFRMINA) : 

" :G$="". 

3142 PRESET (200 , IBO) :PRINTIJ ,G 

S 

3145 A$-INKEYS:IF AS=CHR$tl3) T 

HEN 3160 

3150 IF AS<"0" OR AS>"9" THEN i 

145 

3155 aS-G$+AS:GOTO 3142 

3160 G = VAL (C,$i : IF G = THEN R=6 : 

GOTO 3 230 

3170 IF G<0 OR G>9999 THEN 3140 

3180 LINE (250, 195)-(5.130) .4,B 

F: PHINTIl , "NOVA VELOC?" : SPS^" " 

.1)82 PRESET (200,180) :PHrNT«l,S 

PS 

3185 A5 = INKEYS:IF AS:=CHBS(13) T 

HEN 32104180 RETURN 

3190 IF A$<"0" OR A$>"9" THEN 3 

185 

3195 SP$=SPS+AS:G0TO 3182 

3210 SP-yAL(SPS) 

3220 IF SP<0 OB SP>999 THEN 318 



3230 NEXT H 

3240 RETURN 



S] 



3000 HGR : HCOLOR= 3 

3010 HPLOT 0,0 TO 279,0 TO 279 

,159 TO 0, 159 TO 0,0 

3020 g' = 10:SP = 50 

3030 FOR R = 1 TO 6: HOME 

3040 VTA8 21: PRINT "G= ":G:" 

M/S/S " ; "VELOCTDADE^ " ; SP ; " M 

/S" : VTAB 24: PRINT "TECLE <CR> 

i PARA DISPAHAR " : 

3060 GET AS: TF AS < > OHHS 
(13) THEN 3060 

307E1 FOR T - TO 200 STEP .5 
3080 H =SP * SIN ( ATN (1)) * 
T-.5*G*T«T 
3090 X = SP * COS ( ATN (1)1 * 
T 
3095 IF H < THEN T = 250: GO 
TO 3125 

>inn I I- X ;■' '.7''t l-llivN -I' - 750 : 
GOTO 31 25 

3105 IF H > 160 THEN POKE 769 
.200: POKE 768,2: CALL 770 
3110 IF H < 160 THEN HPLOT X 
f 2,160 - H: POKE 769,8: POKE 7 
68,2: CALL 770 
3115 POKE - 16368.0 
3120 FOR D = 1 TO 20: IF PEEK 
( - 16384) < 128 THEN POKE - 
1636fl.O: NEXT 
3125 NEXT T 

I 3130 IF R > 5 THEN 3230 

*■ 3135 POKE - 16363,0 

3140 FOR D - 1 TO 30O: IF PEE 
K ( - 16384) > 127 THEN D = 300 

3145 POKE - 16368,0: NEXT 



3150 HTAB 1: VTAB 23; CALL - 
958: VTAB 23: INPUT "NOVA ACELE 
HAriAO (0 TFHMINA) ";G 
3160 IF G < OR G > 9999 THEN 

3150 
3170 IF G - THEN R = 6: GOTO 

3230 
31S0 HTAB 1: VTAB 23: CALL - 
958: VTAB 23: INPUT "NOVA VELOC 
IDADE (0 TERMTNA) " ; SP 
3200 TF SP < OR SP > 999 THE 
N 3180 

3230 NEXT R 
324 RETURN 

Execute o programa e escolha a op- 
Cao 3. Ap6s < ENTER > ou < RE- 
TURN > terem sido pressionados, serao 
tragados ponios segundo uma curva que 
comega no canto inferior esquerdo da 
tela e termina em aJgum lugar em dire- 
gao ao canto inferior direito. Essa i a 
trajet6ria de um objeto langado a uma 
velocidade inicial de 50 m/s sob gravi- 
dade G. 



ESTRUTURA DA ROTfNA 



A estrutura da rotina i similar as an- 
teriores. O cdlculo e o trapado sao fei- 
tos em um la?o FOR.. -NEXT (linhas 
3030 a 3230), que permite comparar seis 
trajet6rias diferentes, cinco das quais es- 
pecificadas peJo usuSrio. Um valor 
provoca o retorno ao menu, Mas e mais 
provdvel que voce queira digitar um no- 
vo conjunto de valores para comparar 
as trajetdrias. 

Coloque o valor 5 em G e mantenha 
SP em 50; pressione c ENTER > . Des- 
ta vez, objeto iri mais alto e mais lon- 
ge. Mantenha G em 5 e reduza SP para 
25. Compare os resultados. 

Continue experimentando: modifi- 
que tanto C quanto SP e preste atengao 
aos sons. Estes foram especiaimente pla- 
nejados para ajudA-lo a compreender o 
movimento do objeto na tela. Dessa ma- 
neira, sons cada vez mais agudos indi- 
cam um movimento ascendente. A que- 
da, por sua vez, ^ marcada por sons ca- 
da vez mais graves. 



COMO FUNCIONA 



Lembre-se de que a trajet6ria do ob- 
jeto e tra^ada como coordenadas H no 
eixo Y e coordenadas X no eixo X, Es- 
sas duas varidveis sao calculadas nas li- 
nhas 3080 e 3090. A unica diferen^a en- 
tre elas e que a coordenada H tem a ve- 
locidade (SP) multiplicada pelo seno do 
Sngulo e a coordenada X tem SP multi- 
plicada pelo co-seno do mesmo angulo 
(45*'). Isso explica por que, quando G & 



pequena e SP grande, a trajet6ria pare- 
ce uma linha diagonal a 45". 



SEND, CO-SENO, TANGENTE 



Essas fungoes trigonom^tricas sao ne- 
cessSrias para caicular a frapao do mo- 
vimento que se aplrca a cada uma das 
duas dire<^6es. Tais fragoes, por sua vez, 
sao chamadas de componentes horizon- 
tal e vertical do movimento. Se este tem 
uma velocidade inicial de 50 m/s, por 
exemplo, as duas componentes serao 
menores que 50. Somadas, elas dao exa- 
tamente 50 m/s. 

Como voce deve estar lembrado, a 
componente vertical e SP*SEN A e a 
horizontal, SP*COS A, onde A e o an- 
gulo de inclinagio do langamento. 



VISUALIZE MOVIMENTO 



Para compreender como esses vaJo- 
res sao obtidos, 6 conveniente dar uma 
olhada em um esquema. O desenho da 
pSgina 768 mostra um projetil inician- 
do seu movimento com velocidade real 
V em um §ngulo A com a horizontal. 
As linhas tracejadas, por sua vez, mos- 
tram as componentes da velocidade (Vh 
e Vx) nas duas diregocs. 

O seno do angulo A 6 Vh/V; temos 
assim uma relagao que pode ser lida co- 
mo Vh = V*SEN A. Da mesma forma, 
o co-seno de A 6 Vx/V, de onde inferi- 
mos a equagao Vx = V*COS A. 

Seguindo esse padrio, temos 
SP*SEN 45 para a componente vertical 
da velocidade e SP*COS 45 para a com- 
ponente horizontal. 

No programa, isso aparece de um 
modo um pouco diferente. A exce^o do 
Spectrum, usa-se a fungao ATN(i). Es- 
sa funijao (arco tangente) fornece o an- 
gulo cuja tangente ^ 1 (nosso caso): o 
angulo de 45°. O computador, porem, 
utiliza tal valor em radianos. Por isso, 
recorremos k fun?3o — que fornece o 
valor na unidade adequada — e nao ao 
valor 45, diretamentc. No Spectrum usa- 
se o valor pi/ISO, que equivale a 1 grau, 
multiplicado por 45. 



COMO MUDAR ANGULO 



Neste ponto, voce pode estar queren- 
do saber por que o angulo foi flxado em 
45". Na verdade, tanto o Sngulo quan- 
to a velocidade inicial podem ser alte- 
rados para mudar a trajetdria do proje- 
til. Mais freqiientemente, varia-se o an- 
fulo, deixando a velocidade constante. 
'. o que faremos agora: 




COMO t PEITA A SIMULAQAO DE 
UM MOVIMENTO 

Todos OS programas que simulam 
fenfimenos ffsicos de natureza contf- 
nua, como o movimento de um corpo 
no espacpo, utilizam o mesmo tipo de 
modelo matem^tico: as equaQoes de 
diferen^as ftnitas. Por esse motivo, 6 
interessante saber qual o seu significa- 
do e como funcionam . Assim, seus es- 
forqos de programaQao em muitas 
^reas, inclusive jogos, serao bem mais 
profissionais. 

Uma equa^So de diferenpas finitas 
diz quat 6 a lei matem^tica que rege a 
maneira pela qual uma varicivel muda 
com o tempo. Tomemos como exem- 
plo o movimento de um corpo com ve- 
iocidade constante. Suponhamos nes- 
se caso que a distdncia percorrida pe- 
to corpo em um intervalo de tempo bem 
pequeno — que chamaremos de DT — 
€ DD. Como conseqOencia, a equac§o 
que rege DO em fungao de DT €: 

DD = VOT, 
onde V ^ a velocidade do corpo. 

Na realidade, o que acontece na na- 
tureza 6 um movimento contfnuo, ou 
seja, podemos imaginar um DT infini- 
tesimaJmente pequeno. Por^m, se der- 
mos agora o nome D k distdncia total 
percorrida pelo corpo, teremos a se- 
guinte equapio, que ^ bem mais util 
que a primeira: 

O = D + V*T 

Essa 6 a forma a ser colocada em 
um programa de computador e se cha- 
ma equapSo de diferenpas finitas. Ela 
6 calculada repetidamente, comefpan- 
do com valor de D = 0, O valor de 
D 6 entao incrementado a cada inter- 
valo DT por um "pedacinho" Calcula- 
do pela f6rmul8 V*DT. Esse processo 
simples corresponde a uma tntegragao 
da distSncia ao longo do tempo (inte- 
grapao 6 um termo especffico da parte 
da matemStica chamada cSlculo dife- 
rencial e integral |. 

Como n§o 6 possTvel trabalhar em 
um computador com uma grandeza in- 
finitamente pequena para DT, usa-se 
um DT pequeno mas finito. 



4000 CLS 
4010 LET rL-0 

4020 RESTORE : FOH N-0 TO 7 : RE 
AD A: POKE USR "A"+N,A: NEXT H 
4040 LET A-70r LET SP-50 
4060 PRINT AT , i ■ANGULO-" ; A [C 
HRS 144iCHRS 32 
Jim 4070 INPUT *<ENTER> PARA ATIRAR 



", LINE 13 

4080 FOB T=0 TO 250 STEP .5 
4090 LET H-SP*SIN ( {PI/180) *A} * 
T-.5«10*T*T: LETX-50*COS ({PI/ 
180)*A) *T 

4100 IF H>-0 THEN PLOT X,H+16: 
SOUND .05,H/4: PAU3E 40: NEXT 
T: GOTO 4110 
41(15 LET T-250: NEXT T 
4110 PAUSE 50 

4130 INPUT "NOVO ANOWLO {0 SAl) 
", LINE IS 

413 6 IF LEN I$=0 THEN GOTO 413 


414 LET A-VAL IS 

4150 IF NOT (LEN IS>0 AND A>=0 
AMD A<90) THEN GOTO 4130 
4160 IF A=0 THEN LET FL-l 
417 IF NOT FL THEN GOTO 4 060 
4180 RETURN 
5000 DATA 24,36,36,36.24,0,0.0 

Q 

4000 FCLS 

4020 LINE (0,0)-(255,191J ,PSKT, 

fi 

4040 A-70:SP-50 

4060 CL3: PRINT 'ANGULO - ";A:"a 

RAWS" 

4070 PRINT 8448,*<ENTER> PARA A 

TIRAR' 

4072 IF INKEy$<>CHR$(13) THEN 4 

072 

40 75 SCREEN 1 , : AH-A*ATN ( 1 ) /45 

4000 FOR T-0 TO 250 STEP . 5 

4090 H-SP«SIN(AN)*T-.5*10*T*T:X 

-3P*C0S (AN) «T 

4092 IF H<0 THEN T-250 :G0T0 410 



4094 IF X>251 THEN T-250: GOTO 4 

100 ELSE IF H>189 THEN SOUND 25 

0,l:D-25 ELSE P3ET{X+2 , 190-H , 2) 

: SOUND H+10.1:D-35 

4096 IF PEEK(345)-255 AND D>0 T 

HEM D-D-1:G0T0 4096 

4100 NEXT 

4110 A$-INKEY3 

4120 IF INKEYS-"" THEN 4120 

4130 PRINT «44e,-H0M0 ANGULO (0 

SAD :■; : INPUT A 
4160 IF A<0 OH A>-90 THEN 4120 
4170 IF A>0 THEN 4060 
4180 RETURN 



f^ 



4000 SCREEN 2.0,0 

4020 LINE (5,0)-{250.160) ,15,B 

4040 SP=50:A=70 

4050 OPEN "GHP:" FOR OUTPUT AS 

II 

4060 LINE (250.175)-{5.161) ,4.B 

F;PRINTtl, "ANGULO -" ; A; "GRAUS" 

4070 LINE (250.195)-{5,180) ,4,B 

F:PRINT|1 , "TECLE <RETURN> PARA 

DISPARAR" 

4072 IF INKEy3<->CHRaC13) THEN 4 

072 

4075 AN-A*ATNtl)/45 

40e0 FOR T-0 TO 2S0 STEP .5 

4090 H-SP*SIN(AN)«T-.5*10*T*T:X 

=SP*COS(AN)*T 



4092 IF H<0 THEN T=Z50:GOTO 410 



4094 IF X>245 THEN T=250:C0TO 4 

100 ELSE IF H>159 THEN PLAY'N90 

L19" ELSE PSET (X+6 , 160-H) , 15 : A 

S = "N"+STR3 (INTCH/2) )+"L19" ; PLAV 

AS 

4096 FOR 1=1 TO 100: IF INKEYS < 

>CHRS(3Z) THEN NEXT I 

4100 NEXT T 

11 fO I INK E2;^i0. iq.n) - C. .IRfl) .1,11 

F:PRINTtl, "NOVO ANGULO? (0 TERM 

INA) :":G$="" 

4132 PRESET (220 . 180) : PHINT*1,G 

5 

4135 AS=INKEY$:IF A$=CHRS(13) T 

HEN 4150 

4140 IF A$<"0" OR AS>"9" THEN 4 

135 

4145 GS'=GS+A$:GOTO 4132 

4150 A=VALCG$)iIF A=0 THEN 4180 

4160 IF h<Q OH A>B9 THEN 4130 

417 GOTO 4060 

4180 RETURN 




4000 
4020 



HGR : HCOLOR- .1 

HPLOT 0,0 TO 279,0 TO 275 



,159 TO 0,159 TO 0,0 



404 
4060 
GULO 
4065 



SP = 50:A = 70 

HOME : VTAB 21; 
= ";A;" CtRAUS " 
VTAB 24: PRINT 
> PARA DISPABAR " ; 
4070 GET AS: IF AS < 
(13) THEN 4070 
4075 AN = A * ATN CI) 
4080 FOR T = TO 250 



4090 H = SP * 

T * 



SIN (AN) 
T:X = SP * 



PRINT "AN 

TECLE <CU 

> CHHS 

/ 45 
STEP . 5 
^ T - . 
COS CA 



5 * 10 
M) * T 

4092 IF H < THEN T = 250: GO 
TO 4 LOO 

4093 IF X > 275 THEN T = 250: 
GOTO 4100 

4094 IF H > 160 THEN POKE 769 
,200: POKE 768,2: CALL 770 



4095 IF H < 160 THEN HPLOT X 
+ 2.160 - H: POKE 769, H: POKE 7 
68,2: CALL 770 

4097 POKE - 16368.0 

4098 FOB D = 1 TO 20: IF PEEK 
( - 16384) < ]28 THEN POKE - 
16.^68,0: NEXT 

4100 NEXT T 

HTAB 1: VTAB 23; 



4130 
958; 



UTAB 23: 



CALL - 
"NOVO ANGUL 



INPUT 
(0 TEHMINA) ";A 
4 160 TF A < OR A > 89 THEN 4 
130 

41 ;0 IF A > THEN 4060 
4180 RETURN 



A MAIOR DISTANCIA 



Ao executar a quarta opgao, voce po- 
dera ver a trajetbria de urn objeto lan- 
gado com uma velocidade inicial de 50 



m/s e a uma inclinacao de 70° (ambos 
OS vaJores determinados na linha 4040 
e usados na linha 4090). 

A rotina funciona como as preceden- 
tes, exceto pelo fato de que se pode dar 
entrada a tantos angulos quanios se de- 
sejar (entre 1° e 89°). Assim, toda vez 
que essa rotina for usada, a variivel A 
da linha 4090 armazenara o angulo que 
voce escolheu. Desta vez, a rotina e um 
Jafo infinito, de modo que so se volta 
ao menu teclando-se para um angulo. 

Usando esta rotina, tente encontrar 
angulo que Ihe dd a maior distancia 
de percurso nas dire^oes vertical e hori- 
zontal. Sera facil descobri-lo; ^ o nosso 
conhecido angulo de 45". 

Esse angulo, porem, permite obter a 
maior distancia apenas no caso em que 
OS pontes de partida e de chegada estao 
no mesmo nivel, pois e precise levar em 
conta a resistencia do ar. 
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ACASO 
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Urn dos pioneiros da matem^tica modema, 

trances Blaise Pascal foi 

criador de um triangulo de numeros 

extremamente importante 

para o cilculo das probabHidades. 



A for^a de um computador est^ na 
sua capacidade de obedecer instrupoes 
repetidamente, com precisao e velocida- 
de. Entretanto, quando comparado aos 
processes instantaneos de raciocinio do 
ser humano, o computador pode pare- 
cer lento e obsoleto. A mente humana 
e boa principalmente no que diz respei- 
to a julgar e comparar parSmetros, tais 
como distancia, velocidade e intensida- 
de de luz. 

Mas ati o mais sofisticado dos 6rgaos 
comete erros ac calcular o resultado de 
eventos, Ainda assim, e essencial, por 
exemplo, poder dizer que, "para fins de 
seguro de vida, uma pessoa vive de 65 
a fOanos", ou que "tiao e provAvel que 
a terra volte a tremer no Mexico em 
1986". Tais afirma?6es sao muito co- 
muns no nosso dia-a-dia. Al^m disso, 
sao importantes para fins socials, co- 
merciais e cientificos. Assim, quando 
empregamos expressoes como prds e 
contras, estimativa, diivida, expecialiva, 
esiamos fazendo cilculos mentals de 
probabilidade. 



A PROBABILIDADE EXPLICADA 



evento, ela se baseia na exisiencia de um 
niimero mensurdvel de resultados, como 
num jogo de futebol, ou num lan^amen- 
to de dados, ou de moedas, num jogo 
de cartas etc. Naturalmente, temos que 
poder medir ou quantiflcar os resulta- 
dos; por isso, eventos como corridas de 
cavalo ou jogos de futebol sao assuntos 
dificeis para o cdlculo de probabilida- 
des. Quando dizemos "espero veneer", 
na verdade, estamos afirmando ser alta 
a probabilidade de conseguir a vit6ria 
e nao apenas nosso desejo de triunfar. 
A maioria das pessoas ap6ia-se na in- 
luifao como principal ferramenta no 
cdJculo do acaso {ou probabilidade). En- 
tretanto, se quisermos examinar os efei- 
tos possi'veis e, dentre eles, aqueles que 
sao mais provdveis, num problema de 
probabilidade, podemos chegar a um re- 
sultado bastante precise. Nao e dificil 
aprender a prever os resultados mais 
provdveis, e mesmo que nao possamos 
garanti-los, a possibilidade de acerto e 
hem maior que a de uma estimativa fei- 
ta a esmo. 



PROBABILIDADE E COMPUTACAO 



Probabilidade € uma ferramenta 
cientifica para se medir o acaso. Usada Qual serd entao a relaijao entre pro- 

para calcular o provivel resultado de um babilidade e computaifao? Embora o ti- 



po de probabilidade descrito ate agora 
seja muito vago e dependente de estima- 
tivas, i possivel deduzir formulas ma- 
temdticas para determinados aconteci* 
mentos que nos permitam prever os re- 
sultados mais prov^veis com um ceno 
grau de precisao. 

Existem duas maneiras pelas quais o 
computador pode ser litil aqui. A pri- 
meira delas consiste em programa-lo pa- 
ra simular o pr6prio evento — e bem 
mais comodo fazer com que a raiquina 
jogue um dado 2000 vezes e depois ana- 
lise o resultado do que termos n6s mes- 
mos que faze-lo. A segunda maneira, 
entretanto, s6 funciona quando conhe- 
cemos as formulas para um certo even- 
to; nesse caso, podemos fazer com que 
o computador calcule o resultado. 

Visto por alguns como um exercicio 
puramente te6rico, esse tipo de cdlculo 
serve de base para muitas aplicafoes 
uteis do computador. Uma dessas apli- 
ca?6es consiste nos jogos onde, por 
exemplo, os pontos ganhos dependem 
da probabilidade de certos resultados. 
Do mesmo modo, poderfamos escrever 
um programa que estabelecesse as pro- 
babilidades de chover num determina- 
do dia. Por enquanto, pordm, vamos 
concentrar nossa atenfio apenas na teo- 
ria. Mais adiante, trataremos da cons- 
tru^ao de alguns desses aplicativos. 
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QUE E PROBABILIDADE 



E COMO MEDI-LA 



P ROBABILIDADE , 

FREOUENCIA E ACASO 



I PRQGRAMA LANQADOR DE MOEDAS 



PROBABILIDADE DE 
VARIOS RESULTADOS 



TRIANGULO DE PASCAL 



DISTRIBUICAO OE FREQUENCIA 
PREVEJA RESULTADO 



^xi 



COMO MEDIR A PROBABILIDADE 



A teoria de medigao da probabilida- 
de requer que sejam conhecidos os re- 
sultados possi'veis de um evento, e que 
eles ocoiram com uma certa freqiiencia, 
passivel de ser medida. A probabilida- 
de de acontecer um certo evento e o nii- 
mero de vezes com que ele se repete (fre- 
qiiencia), comparado com o total de to- 
dos OS resultados possfveis. Ou, em ou- 
tras paiavras, e a freqii&ncia expressa em 
fracao do conjunto dos resultados pos- 
siveis. 

Devemos notar que, se um aconteci- 
mettto se repetir toda vez que pcorrerem 
certas circunstancias, entao sua proba- 
bilidade sera igual a 1. Isso porque sua 
freqiiencia ser^ igual ao ruimero de re- 
sultados possiveis, e a divisao de dois 
niimeros iguais resulta em 1 . Temos, en- 
tao, que 1 e amaior probabilidade pos- 
sivel, e que a soma das fra?oes de pro- 
babilidade de todos OS resultados pos- 
siveis resultara invariavelmente nesse 
niimero. 

Um dos metodos mais simples e an* 
tigos de visualizar a protjabilidade e Ian- 
par uma moeda e prever o resuliado, ou 
seja, que face terd ao cair: cara ou co- 
roa. Como a moeda tern s6 dois lados, 
podemos inferir que, qualquer que fos- 



se numero de ian9amentos, deveria- 
mos obter cara, metade das vezes, e co- 
roa a outra metade, ignorando a remo- 
ta possibilidade de a moeda cair em pe. 
Para ilustrar melhor esse m6todo, digi- 
te e rode o primeiro programa: 



m 



iO COLOR 1,3,3:CLS 
20 INPUT"QUAL TESTE (1-4) ";X 
30 CLS;IF X<1 OR X>4 THEN 10 
40 ON X GOTO 70,70,180,460 

50 REM ....probabilidade 

60 REM. . . lan^amento de moedas 

70 H-0:T=0 

80 LOCATE.^, 3:PHINT°PRESSI0NE A 

TECLA DE ESPACO" 

65 L0CATE9, 4: PRINT-PARA LANCAB 

A MOEDA" 

90 LOCATE13,7:PRINT"CABAS: 0": 

PRrNTTABtl3) "COH0AS= 0" 

100,A$=INKEYSrIFAS=CHHS(13) THE 

N SCREENOiRUN 

105 IFA$C>" "THEN 100 

110 IF X='2 THEN FORN-1 TO 100 

120 IFINT.(RND(l)*2)+l-'l THEN U' 

H+1 ELSE T=T+1 

130 LOCATE20, 7:PH1NTH:LOCATE20, 

8:PRINTT 

140 IF )t=l THEN 100 

160 NEXTN:GOTO 100 



aiE] 



HOME 



20 INPUT "QUAL TESTE (1-4) ? 

"jX 
30 HOME : IF X < 1 OR X > 4 TH 
EN 5 
40 ON X GOTO 70,70,180.460 

5 HEM PROBABILIDADE 

60 REM ..LANCAMENTO DE MOEDAS 

70 H - 0:T = 

BO PRINT -PRESSIONE A TECLA DE 

ESPACO" 
85 PRINT " PAHA LANCAH A MO 
EDA" 

90 VTAB C4) : PRINT "CARAS: 0' 
: PRINT "COHOAS: 0" 
100 GET AS: IF AS = CHRS (13) 

THEN TEXT : RUN 
105 IF A$ < > " " THEN 100 
110 IF X = 2 THEN FOR N = 1 T 
100 
120 IF INT [ HND (1) ■ 2) + 1 

= ] THEN H = H + 1- GOTO 130 
125 T = T + 1 

130 VTAB (4): HTAB t9) : PRINT 
;H: HTAB t9) ■ PRINT jT 
140 IF X - 1 THEN 100 
160 NEXT N: GOTO 100 

Q 

10 PMODE 3,1:CL3 

20 INPUT-QLIAL O TESTE fl-4J "jX 
30 CLS:IF X<1 OR X>4 THEN 20 
4 ON X GOTO 70,70.180,460 

50 REM PROBABILIDADE 

60 REM LANCAMENTO DA MOEDA 

70 H-0:T-0 




60 PRINT «65,"PRESSIONE A BABRA 
DE ESPACOS PAHA LANCAB A MO 

EDA" 

90 PRINT 6288, "CABAS - 0": PRINT 

"COR0A3- 0" 

100 A3-INKEY3:IF AS<>" " THEN 1 

00 

110 IF X-2 THEN FOR N-1 TO 100 

120 IF RND(2)-1 THEN H-H+1:PBIN 

T §204. "CA": PRINT §295,H;ELSE T 

-T+1:PRINT §207,"CO":PRINT #327 

.T; 

130 IF X-1 AND PEEK{345)<>247 T 

HEN 130 

140 PRINT #204,"" 

150 IF X-l THEN FOR D-0 TO 400: 

NEXT: GOTO 120 ELSE NEXT 

160 AS-INKEY3:IF A3<>CHfi5tl3) T 

HEN 160 ELSE END 



5 BOHDEB 7: PAPER 7: INK 9 r 
CLS 

10 DIM n(4) 

;;0 RESTORE 9000 : FOR n=l TO A 

: READ n(n) : NEXT n 

30 INPUT "Qual o teste (1 a -1 

)?-,3t: CLS 

40 BORDER X: GOTO n(x) 

SO REM Probabi 1 itJade 

60 REM Lancamento de Moeda 

70 LET h=0: LET C^O 

80 PRINT AT 2,1 ; "Preeaione <S 

PACE> para lancar" 

90 PRINT AT 20, 10; "CABAS - 0" 

I AT 21,iO;"COROAS- 0" 
100 IF INKEYSOCHRS 32 THEN 
GOTO 100 
110 IF x=2 THEN FOR n^l TO 

100 
120 IF !NT (RND*2)=1 THEN LET 
h=h+l ; PRINT AT 10, 15 i "CA" rAT 
20.18ih: GOTO 130 
125 LET r. = t + L: PRINT AT 12.15; 
"CO"; AT 21 ,18;t 
130 IF x=l THEN IF INKEYSO 
CHHS 32 THEN GOTO 130 



140 PRINT AT 10,15;" " ; AT 12, 

15;" " 

15Q IF K=l THEN FOR m=l TO 

J 00: NEXT Bl : GOTO 120 
155 NEXT n: STOP 
9000 DATA 70,70,170.460 

Este programa sera incrementado mais 
adiante. Ao roda-lo, seremos perguntados 
a respeito do numero do teste que dese- 
jamos fazer. Esse primeiro programa con- 
tem somente os dois testes iniciais. Digi- 
te 1 e eslaremos prontos para langar a 
moeda — usando a tecla de espaga O 
ponto crucial do programa estS na linha 
1 20, que gera aleatoriamente valores 1 
(para cara) e (para coroa), al^m de fa- 
zer a contagem do numero de caras e co- 
roas obtidas). A linha 150 no programa 
do Spectrum e lambem no do TRS-Color 
provoca uma pausa entre as jogadas. 

Poucos langamentos, provavelmente, 
fornecerao vaJores diferentes para cara 
e coroa, representados no programa pe- 
ias vari^veis H e T, respectivamente. 
Quanto maior o numero de jogadas, 
mais prbximas uma da outra serao as 
freqiiencias de H e T — lendendo, cada 
uma, a metade do niimero total de lan- 
famemos (ou 50%). Para demonstrar 
esse efeito, rode o programa novamen- 
te, mas, desta vez, selecione o teste 2. 
Ao ser pressionada a tecla de espago, um 
laifo preparado pela linha 1 10 lan?ar4 a 
moeda cem vezes. Note que as duas va- 
riaveis, H e T, estao bem pr6ximas de 
50. Mude o 100 da linha 1 10 para 1000, 
rode o programa e observe como cara 
e coroa tendem para 500. 

Pode acontecer que, num teste de 
poucas jogadas, lodas elas sejam coroa. 
Apesar disso, a probabilidade de se ob- 
ter coroa scrd sempre igual a 1/2 (meio). 
Convem nao nos esquecermos disso, 




principalmente quando estivermos tra- 
balhando com mais de um evento. Mui- 
tos acreditam que, se dez langamentos 
seguidos de uma moeda derem cara, a 
possibilidade de se obter coroa na 
dteima-primeira jogada sera maior do 
que antes. Isso nao i verdade; a possi- 
bilidade de dar coroa ainda sera de 50*?o. 
Os eventos passados nao tem innuencia 
sobre os langamentos seguintes. No en- 
tanto, se langarmos onze moedas ao 
mesmo tempo, a chance de .se obter on- 
ze coroas sera menor que a de obter dez 
coroas e uma cara. A maior chance e de 
que o numero de coroas seja proximo 
ao numero de caras. 



MULTIPLOS EVENTOS 



Quando hi virios eventos, algumas 
informagoes adicionais sao necessarian 
para se poder prever a probabilidade de 
cada resultado. Uma informagao essen- 
ciaJ e o numero total de resultados pos- 
siveis. Por exemplo, se langarmos duas 
ve7.es uma moeda, teremos tres resulta- 
dos possfveis: duas caras, uma cara e 
uma coroa, e duas coroas. A primeira 
vista, pareceria que cada resultado po- 
de ocorrer 1/3 das vezes. Na verdade, as 
probabilidades sao duas caras acontece- 
rem 1/4 (25%) das vezes; duas coroas, 
1/4; e uma cara e uma coroa, 1/2. Para 
cniender essa terceira probabilidade, pre- 
cisamos de outra informacao essencial, 
que dS conta de quantas vezes cada re- 
sultado ocorre, Uma cara e uma coroa 
acontecem duas vezes, porque existem 
duas maneiras de se obter tal resultado: 
uma cara e depois uma coroa, ou uma 
coroa e depois uma cara. Conseguimos 
as.sim um total de quatro resultados, tres 
dos quais diferentes entre si. 

Na pritica, costuma-se usar dois re- 
cursos matematicos que nos poupam o 
trabalho de calcular a ocorrencia de ca- 
da resultado: o teorema binomial e a 
triangulo de Pascal. Binomial significa 
"dois termos". Se um evento tem so dois 
resultados possiveis e conhecemos a pro- 
babilidade de cada um deles, podemos 
usar o teorema binomial para calcular 
tais probabilidades. O teorema binomial 
nos diz o que devemos esperar de testes 
repetidos de um evento com dois resul- 
'.ados possiveis. Chamaremos P ii pro- 
babilidade de um dos resultados e Q a 
do outro (lembremos que a soma de P 
e deve ser igual a 1). Denominaremos 
N o numero de eventos. 

No exemplo do langamento de uma 
moeda, P (digamos, a possibilidade de 
dar cara) e Q (coroa) serao iguais a 1/2 
para cada jogada. De acordo com o teo- 



rema binomial, a chance de que qualquer 
evento aconte^a duas vezes seguidas e a 
probabilidade de que ocorra uma vez 
multiplicada por ela mesma. Em geral, 
a regra eonsiste na probabilidade do even- 
to elevado k potencia N. Portanto, para 
0. caso de duas caras seguidas, PTN = 
1/2 X 1/2 = 1/4. Existe entao uma chan- 
ce em quatro de que obtenhamos duas 
caras seguidas. Do mesmo modo, a pos- 
sibilidade de se conseguir cinco coroas 
sucessjvas e PTN = {l/2 T 5), ou 1/32, 

Como veremos maistarde, podcmos 
usar esse metodo para calcutar a proba- 
bilidade em qualquer caso onde existam 
somente dois resuttados possiveis 
(sim/nao ou caia/coroa, por exemplo). 
Mas qual seria a chance de se obterem 
ires caras e duas coroas em cinco lanca- 
mentos? Para responder a essa pergun- 
ta, precisamos de um modelo mais com- 
plexo, Muito litil neste caso e o trian- 
gulo de numeros, desenvolvido pelo ma- 
tematico, ffsico e fil6sofo frances Blai- 
se Pascal. Esse triangulo fornece todos 
OS resultados possiveis de um evento bi- 
nomial, e pode ser entendido como al- 
gumas fileiras de numeros. As primei- 
ras sete fileiras sao; 



Fileira 0) 


1 


Fileira 1) 


1 I 


Fileira 2) 


1 2 


Fileira 3) 


1 3 3 


Fileira 4) 


1 4 6 


Fileira 5) 


1 5 10 10 


Fileira 6) I 


6 15 20 



4 1 

5 1 
15 6 1 



Para construir um triangulo como es- 
se, tscreva primeiramente as fileiras e 
1, as mais fdceis de serem lembradas. A 
fileira 2 come^a com um 1 k esquerda 
da fileira I e termina com um I a direi- 
ta. O nijmero do meio e obtido pela so- 
ma dos dois algarismos imediatamente 
acinia de!e (1 -t- 1). Da mesma maneira, 
a fileira 6 e obtida somando-se 5 + 1 , 
5 + 10, 10+10. 10+5 e 5+1, Se conti- 
nuarmos com esse processo, teremos um 
triangulo com um niimero de fileiras ca- 
da vez maior, o que seria dificil de con- 
seguir com a utiliza^ao de qualquer ou- 
tro metodo. 

O triangulo de Pascal nos dd todas 
as informa^oes de que precisamos quan- 
do langamos diversas moedas (ou uma 
moeda varias vezes), O mimero de moe- 
das (ou de langamentos) estabelece o mi- 
mero da fileira que devemos olhar; o mi- 
mero de itens na fileira determiria o de 
resuttados diferentes, Por exemplo, exis- 
tem duas possibilidades para uma moe- 
da (1 e 1 na fileira 1) e sete para seis 
moedas (1, 6, 15, 20, 15, 6, 1 na fileira 
6). A soma dos itens na fileira nos d^ 




o mimero total de resultados (2 para 
uma moeda, 4 para duas moedas, e as- 
sim por diante). 

Cada mimero na fileira define a pro- 
babilidade. Por exemplo, na fileira 2, o 
primeiro mimero (I) e a probabilidade 
para duas caras; o segundo (2), a pro- 
babilidade para uma cara e uma coroa; 
lerceiro (I), para duas coroas. Eviden- 
temente, a freqiiencia tern que ser divi- 
dida pelo mimero total de resultados (4, 
neste caso) para se obter a probabilida- 
de. Note que o resultado da adifao dos 
numeros em cada fileira e sempre uma 
potencia de dois (1, 2, 4, 8. 16). Isso 
acontece porque, para qualquer um dos 
eventos, hd so duas opgoes: cara ou 
coroa. 

A praticidade desse mdtodo ^ posta 
a prova quando queremos. por exemplo, 
calcular as probabilidades de lanijamen- 
Eo de trinta moedas; a con&tru(;ao de um 
triangulo com trinta fileiras seria muito 
trabathosa, alem de tomar muito espa- 
qo. Existe, porem, um metodo grifico 



ao qual podemos recorrer em tais situa- 
goes, e e aqui que entra a ajuda do com- 
putador. 



CUHVAS DE OlSTRIBUigAO 



Onde existirem muitos resultados 
com probabilidades nao muito claras, 
conseguiremos quase sempre calcular o 
que precisamos, plotando (ou seja, mar- 
cando num grifico) uma curva de dis- 
tribuigao, definida pela freqiiencia dos 
resultados que conhecemos. Como em 
qualquer metodo grdfico, as informa- 
goes nele comida.s sao percebidas logo 
de inicio. Se, por exemplo, uma moeda 
for langada trinta vezes (o que seria o 
mesmo que langar trinia moedas de uma 
s6 vez), podemos tragar um grdfico com 
mimero de caras obtidas. Digite a pr6- 



xima sc^io de programa, mas nao apa- 
gue a anterior: 



170 

leo 

4 

190 
200 



REM picoB 

SCREEN2:FORX=5 



randSnlcos 
TO 255 STEP 



GH-0:GOSUB 610 
FORY-0 TO H*6 STEP 2 

210 PSET(X,l8e-Y) .1 

220 NEXT Y,X 

230 IFINKEYS-""THEN230 ELSE RUN 

610 H=0:T=0 

650 FOBS- I TO 30 

660 IFrNT(RND(l)«2)+l-l THEN H- 

H+1 ELSE T-T+1 

670 NEXT 

680 RETURN 



[i][g] 



170 REM PICOS AI.EATOHIOS 

ISO HGR : HCOLOa= 3: FOR X = 4 

TO 275 STEP 10 
190 GM = 0: G03UB 610 

FOR N - TO H: HPLOT X,16 
NEXT U 



200 

- 

220 

230 



235 

610 



(N * 6) : 
NEXT X 
GET A3; 



IF AS = 



THEN 23 



TEXT : BUN 

REM LANCAKENTO 

620 B - 0:T - 

630 HOME : VTAB (22) : PRINT "C 

ABAS: ": PRINT "COROAS: " 

640 IF GM < > THEN VTAB (2 

2): HTAB (31): PRINT "JOGO: 'iG 

Mr HTAB (17): PRINT "CAHAS EM 3 

LANCAMENTOS" 

650 FOR S = 1 TO 30 

660 IF INT t RND (1) « 2) + 1 

= 1 THEN H - H + 1: GOTO 668 
665 T - T + 1 

668 VTAB (22) : HTAB (10) : PRIN 
T ;H: HTAB (10) : PRINT ;T 
670 NEXT S 
680 RETURN 

a 

170 REM .... QRAFICO 

180 PCLS4: SCREEN 1,0: FOR X-0 TO 

255 STEP 4 
190 aM-0:OOSUB 610 



200 FOR V-0 TO H*6 STEP 2 

210 P3ET(X.ie9-¥.2J 

220 NEXT Y.X 

230 GOTO 160 

610 H-0:T-0 

650 FOR TS-1 TO 30 

660 IF HND(2)-1 THEN H-H+1 ELSE 

T-T+l 
670 NEXT 
680 RGTURN 





170 REM Grafico 
175 PLOT 0.0: DRAW 180,0 
180 FOR x=4 TO 160 STEP 4 
190 LET qDi»0: GOSUB 610 
200 FOR ti-O TO h: PLOT x,n*6: 
NEXT n 
220 NEXT X 
230 STOP 

610 REM Lancaoentci 
620 LET h-0: LET t-0 
630 PRINT AT 4,22!''CARAS --;h; 
AT 6, 22: "COROAS- " jt 
64 IF gmOO THEN PRINT AT 0, 
0;"JOGADA3-"lflm;AT 21,3;"CAHAS 
EM 30 LANCAMENTOS:" 
650 FOR a-1 TO 30 
660 IF RND>-.5 THEN LET h=h+l 
; PRINT AT 2,24;" CA" ;AT 4,29 
;h;~ ": GOTO 670 

665 LET t-t+1: PRINT AT 2.24;" 
CO " ;AT 6.29!t;" " 
670 NEXT 3 
680 RETURN 

Ao rodar o programa, desta vez, se- 
lecione o teste 3. Devemos ver na tela 
urn grifico com uma serie de pontes 
chegando a vdrios picos. Esta e uina das 
muitas formas possiveis nesse tipo de 
an^ise. Os picos sao os numeros de ca- 
ras em cada trinta lani;amentos ao Ion- 
go do eixo Y, espa?ados igualmente ao 
longo do eixo X. Existem mats picos al- 
tos do que baixos. A razao disso « que 
a possibilidade de se obter cerca de qniii- 
ze (ou de doze a dezessete) caras i mui- 
to raaior que a de se obter um niimero 
menor ou maior. Isso tambem pode ser 
observado no triangulode Pascal, onde 
OS valores mais altos se encontram na re- 
giao central. 

A linha 180 gera um \at;o para espa- 
car OS pontos ao longo do eixo X. A va- 
riavel GM (niimero de jogadas) 6 zera- 
da na linha 190 e uma rotina (linhas 610 
a 680) € chamada para exccutar cada ba- 
teria de trinta langamentos. Essa rotina 
usa OS elementos do segundo teste, mas 
lan?a a moeda "eletrfinica" trinta vezes 
e nao cem. Com exceijio do TRS- 
COLOR e do MSX, ao rodarmos esse 
teste, notaremos o placar para cara e co- 
roa que aparecerd na tela. Uma vez atin- 
gidos OS trinta lancamentos, o niimero 
de caras que foi acumulado na rotina so- 
frer^ um ajuste de escala na linha 200 
e serd plotado na coordenada Y pela li- 
nha 210 (linha 200, no Spectrum e no 
Apple). 

Para tirar o mixkno proveito de uma 
andlise desse tipo, precisamos rearran- 
jar as informagoes, de modo que obte- 
nhamos uma das curvas mais conheci- 
das no meio estatfstico: a distribuifao 
normal. Digite mais estas linhas para 
obtermos taJ curva: 



fffi 



450 BEM. . .(JiBtrlbuic3o normal 
460 DIM G(30) 

470 CLS:SCREEN2:LINE{6,0)-<6,19 
1) ,iSrLINE-(255.19J.) .15 
480 GOSUB 560 

4BS AS=INKEYS:IFAS<>" "THEN 485 
560 DEF FNN(X)=l/(4. 4429*2. 718'- 
((X«X)/2) ) 
570 DBAW"BM7.190":FOBX=2 TO 255 

STEP2 
580 LINE- (X,191-640*FNN({X-XZ7) 
/24) J .1 
590 NEXT r RETURN 



[EE] 



450 REM ..DISTRIB NORMAL 

460 DIM G(30): HGB r HC0LOE= 3 

4 70 HPL.OT 0.0 TO 0,159: HPLOT 

TO 279.159 
480 nOSUB 560 

485 GET AS: IF A$ < > " - THE 
N 485 
490 END 

560 BEM . . -GHAFICO 
565 DEF FN N{X) =■ 1 / (4.4429 

* 2.716 - ({X * X) / 2)) 
570 FOR X = 1 TO 260 STEP 2 
560 HPLOT X,158 - 660 * FN N ( 
(X - 140) / 24] 
590 NEXT X: RETURN 



Q 



450 REM .... DI3TB. NORMAL 

460 DIM G(30) 

470 PCLS:SCBEEN 1 , : LINE <0 , 0) - ( 

0. 191) ,PSET: LINE- (255, 191) . P3ET 

4 BO GOSUB 560 



485 A3-INKEYS;IF ASO" " THEN 4 

85 

560 DEFFND(X)-l/(4. 4429*2. 718- ( 

(X*X)/2)) 

5 70 COLOR 2, 3 : DRAW" BM2, 190": FOR 

X-2 TO 255 STEP 2 
580 LINE-(X.191-640*FND((X-127) 
/24)) ,PSET 
590 NEXT: RETURN 



450 REM DiHtr .Normal 
460 DIM g(30) 

470 PLOT 4,150: DRAW 0.-140: 
DRAW 24 5,0 
4B0 GOSUB 560 

485 IF INKEYSOCHRS 32 THEN 
GOTO 485 
560 REM Graf. 

570 PLOT 4,10: FOB x=0 TO 1200 
q^'rp 20 

580 DRAW 4,6Q0*FN n<ABS ( (J^- 
600) /I40 ) ) +10-PFJEK 23678 
590 NEXT x: RETURN 
600 DEF FN n (x) =1/ CPI*1 . 4142* 
2.718'- ( (x-2)/Z) ) 

Desta vez, rode o programa e selecio- 
ne leste 4, que e o de uma curva de 
disiribuigao do tipo normal, A linha 460 
dimensiona uma matriz que serd usada 
posteriormente na contagem das caras 
obtidas. 

A linha 470 desenha os ejxos das 
coordenadas X e Y e a linha 480 chama 
a rotina que desenha a curva. Essa roti- 
na usa uma funijao matemitica (linha 
580) para desenhar a curva, o que ex- 
ptica a forma "perfeita" desta ultima. 
A funt^ao e definida pelas Unhas 560 



(MSX e TRS-Color). 565 (Apple e 
TK-2000) e 600 (Spectrum). Por enquan- 
to, porem, nao aperte nenhuma tecla, 
pois a rotina esta incompleta. Aguarde 
desenvolvimento do programa. 

Quando usamos informaijoes reals, 
torna-se dificil plotar uma curva conti- 
nua. Isso ja era de se esperar, pois esta- 
mos lidando com probabilidades e nao 
com certezas. A probabilidade de um re- 
sultado, tal como o de chover na fndia 
na dpoca das monijoes, pode ser alta; 
mas, no caso do exemplo, tdm sido re- 
gistrados periodos em que a seca toma 
lugar das chuvas. 

O prbximo teste ilustra muito bem es- 
se ponto. Ele repete varias vezes os ex- 
perimentos anteriores das moedas e co- 
loca no grdfico (plota) os resultados ob- 
tidos. Digite entao a segunda parte do 
teste 4: 



490 FOR GM=1 TO 


500 


50 GOSUB 610 




510 G(H)=GIH)+1 




520 PSET{H*8+7, 


192-GCH)*2) 


530 NEXT 




54 GOTO 2.10 
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490 FOR GM = 1 


TO 2 00 


500 GOSUB 610 




510 G(HJ = G(H) 


+ 1 


520 HPLOT 20 + 


8 * H,160 


) " A 




530 NEXT GM 




540 GOTO 230 
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490 FOR GM-l TO 500 

500 GOSUB 610 

510 G{H)-d(H)+l 

520 PgET<H*8+7,192-G(H)*2,a) 

530 NEXT 

540 GOTO 160 



490 FOR g=l TO 200: LET (jm=a 

fjOO GO£)UB 610 

510 LET g(h)=g<h)+l 

520 PLOT B+-8*h, 10+4«g(h) 

530 PRINT AT 21, 27;h; " " 

540 NEXT g 

55 STOP 

Agora, rode novamente o quarto tes- 
te. Quando a curva ideal tiver side de- 
senhada, pressione a tecla de espago pa- 
ra iniciar o lan^amento. Aparecer^ en- 
lao uma serie de pontos "crescendo" 
para preencher o espago compreendido 
pela curva, Quando o teste estiver com- 
pletado, quinhentos pontos (duzentos 
no Spectrum e no Apple) terao sido co- 
locados no grafico (especificados na li- 
nha 490). Em alguns micros, tal como 
no Spectrum, o tempo de execu?ao des- 
se teste e de alguns minutos. Para 
acelera-lo, costuma-se inserir desvios 
(GOTO) em lugares apropriados ao Ion- 
go do programa, mas na maioria das ve- 
zes issc traz aItera?ao no funclonamen- 
to dos outros testes, 

Esta secao do programa cliama a ro- 
tina (linha 500) que lan^a a moeda trin- 
ta vezes (no Apple e no Spectrum, os 
langamentos sao mostrados na tela, co- 
mo no terceiro teste). Cada bateria de 
trinta lanipamentos forma um jogo, e po- 
de resuUar em cerio niimero de caras en- 
tre e 30. Portanto, na matriz da linha 
460, H pode variar de a 30. Se analU 
sarmos pela optica da lei das probabili- 
dades, vereraos que muito dificilmente 
H assumiria valor ou valor 30 numa 
bateria de trinta langamentos. Uma si- 
tuagao assim e conhecida como "ocor- 
rencia rara", justamente pela maneka 
com que os ntimeros aleat6rios sao ge- 
rados. Na verdade, niimeros extrema- 
mente pequenos ou extremamente gran- 
des de caras em langamentos como esse 
nio acontecem com freqiiSncia. Sua 
ocorrencia i possivel, mas a probabili- 
dade e muito baixa. 

A linha 510 faz a contagem do resul- 
tado de cada jogo por intermMio de 
uma matriz. Por exempio, toda vezque 
o resultado de um determinado jogo for 
onze caras, o elemento de matriz G(1I) 
sera incrementado de 1 . Da mesma ma- 
neira, toda vez que o resultado for quin- 
ze caras, G(1S) seritamb^m incremen- 
tado de 1. Inicialmente, todos os ele- 



mentos da matriz sio iguais a zero. 

Ap<5s cada jogada, a linha 520 altera 
a escala do valor de H (niimero de ca- 
ras em trinta lan^amentos), a fim de 
compatibilizi-lo com os eixos X e Y. A 
prdxima vez que ocorrer o mesmo resul- 
tado, um ponto serd plotado na mesma 
coordenada X, mas uma unidade acima 
na coordenada Y. 

A linha 530 faz a contagem do H em 
cada jogada, verificando tambem o nii- 
mero de jogadas. 



COMO USAR A CURVA 



Rode algumas vezes o teste 4 para ter 
uma ideia de como variam os pontos sob 
a curva; depois, rode-o com menores va- 
lores finals para GM na linha 490. Mes- 
mo sera a curva ideal, seremos logo ca- 
pazes de imaginar uma curva idealiza- 
da passando pelos picos. Na pritica, o 
inverso desse processo imagincirio e ex- 
tremamente importante, pois quando 
conhecemos o perfil de uma curva po- 
demos fazer a previsao do resultado de 
testes futuros. 

O valor de H no pico central tem um 
interesse especial. Ele e a media dos 31 
possiveis valores ao longo do eixo X 
(neste caso, 1 5). A mddia identifica o pi- 
co da curva, e constitui tambem o valor 
mais provivel; sozinha, por^m, ela nao 
e muito informativa. Embora possamos 
dizer que 15 seja o resultado mais pro- 
vAvel, 14 e 16 sao quase tao provdveis 
quanto ele. Existe uma faixa de valores 
comuns em lorno do pico, e ^ importan- 
te conhecer a largura desta faixa. A me- 
dia e usada na especificagao de um ou- 
tro parametro estatistico importante — 
o dcsvio padrao — , que e a medida da 
largura da faixa de pontos comuns. A 
formula para o desvio padrao e relati- 
vamente complicada. Uma vez calcula- 
do esse parametro, podemos atribuir 
uma probabilidade para qualquer um 
dos pontos na curva. 

O desvio padrao mede o quanto os 
valores variam nos dois lados da media. 
Por exempio, uma secSo de curva com 
desvio padrao de 1 ,96 em cada lado da 
media englobari 95*t'o dos resultados. Se 
aumentarmos o desvio padrao para 
2,58, a curva passara a comer 99% dos 
resultados. 

Os pacotes comerciais de software es- 
tatistico calculam o desvio padrao com 
grande facilidade e rapidez. 



SEIS RESULTADOS POSSIVEIS 



Existem muitos casos de eventos on- 
de temos mais do que dois resultados 



possiveis. Em tais casos, calcular a chan- 
ce de algum evento nao e tao simples co- 
mo olhar uma fileira do triangulo de 
Pascal. 

Por exempio, quando jogamos um 
dado, podemos conseguir um entre scis 
resultados. Se o dado nao for viciado, 
todos OS resultados sao equiprovdveis, 
ou seja, tem a mesma possibilidade de 
vir a acontecer, 

Os resultados para o langamento de 
dois dados podem ser calculados por in- 
term^dio da construfao dc uma tabela; 
mas, quamo mais resultados tivermos, 
mais complicado tlcara o nietodo que te- 
remos de seguir. 

Aqui est^ uma tabela com todos os 
resuhados possiveis no langamento de 
um par de dados: 

Valor do primeiro dado 
12 3 4 5 6 

Valor do I 2 3 4 5 6 7 

segundo 2 3 4 5 6 7 8 

dado 3 4 5 6 7 8 9 

4 5 6 7 8 9 10 

5 6 7 8 9 10 11 

6 7 8 9 10 U 12 

Como vemos na tabela, existem 36 
maneiras diferentes de os dados cairem 
(seis linhas vezes seis colunas). embora 
haja somente onze resultados diferentes. 
A tabela apresenta vdrias outras infor- 
magoes. Existe uma possibilidade em 36 
de obtermos os pontos mini mo e mixi- 
mo (2 ou 12 aparecem somente uma vez 
na tabela); em contrapartida, hd seis 
possibilidades em 36 (1/6) de obtermos 
7 como resultado. Existe tambem uma 
chance era 36 de jogarmos repetido. Es- 
sa chance i mostrada na diagonal que 
vai de 2 (duas vezes o niimero 1) ate 12 
(dois 6). 

Combinando o teorema binomial 
com essa tabela, podemos calcular as 
probabilidades para muitos jogos. Urn 
bom exempio de evento de miiltlplo lan- 
gamento de dados 6 o jogo Monopdlio, 
onde o jogador, caso esteja na "ca- 
deia", tem direito a tres lances para ten- 
tar conseguir uma dupla (dois dados 
iguais). Intuitivamente, pode parecer 
que ele conta com 50/50 de possibilida- 
des de sair da "cadeia" (trgs jogadas, 
cada uma com 1 /6 de chance), mas isso 
nao ^ verdade. Pela tabela, podemos ve- 
rificar que a chance de o jogador nao 
conseguir uma dupla e de 30/36 (5/6) 
para cada jogada. Usando o teorema bi- 
nomial, perceberemos facilmente que a 
chance de ele nao conseguir uma dupla 
tres vezes seguidas ^ 5/6 elevado a po- 
tencia 3, ou 125/216. Isso equivale, 
aproximadamente, a 58% dc possibili- 
dades de fracasso. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMACAO BASIC 

Atinja as estrelas, executando um programa que Simula a 
trajet6ria de um corpo no espaco sideral. 

CODIGO DE MAQUINA 

Pense em uma abertura musical digna do jogo Avalanche. Que 
tal um velho sucesso de 1 560? 

PROGRAMACAO DE JOGOS 

Se voce quer saber como derrotar o computador, digite a segunda parte 
do jogo do Otelo apresentada neste artigo. 



JOGOS 



> .^ 



-,m^ 




